errors on Macro code for consolidation

[Aziz_SA]

Hi !

I hope you are doing great !

I'm a beginner in the VBA programming , and while I'm trying use the following macro to consolidate data, i face some errors.

if any one kindly can check the following for me and guide me if there are any errors to be resolved , this would be really highly appreciated!!

thank you in advance!!

consolidate Macro
ActiveCell.Offset(-12, -4).Range("A1").Select
    Selection.CurrentRegion.Select
    Selection.Copy
    Sheets("Sheet1").Select
    Selection.PasteSpecial Paste:=xlPasteValues, Operation:=xlNone, SkipBlanks _
        :=False, Transpose:=False
    ActiveCell.Offset(0, 3).Columns("A:D").EntireColumn.Select
    Application.CutCopyMode = False
    Selection.Copy
    ActiveCell.Offset(0, -2).Range("A1").Select
    ActiveSheet.PasteSpecial Format:=3, Link:=1, DisplayAsIcon:=False, _
        IconFileName:=False
    ActiveCell.Offset(0, 4).Columns("A:F").EntireColumn.Select
    Selection.Delete Shift:=xlToLeft
    ActiveCell.Offset(0, -5).Range("A1").Select
End Sub

[Grade4.2]

Yes, there are a few errors in the code. The End Sub statement is missing at the end of the macro, and the Range("A1") statements are not part of the Offset method, so they need to be removed. Here is the fixed code:

Sub consolidateMacro()
    ActiveCell.Offset(-12, -4).Select
    Selection.CurrentRegion.Select
    Selection.Copy
    Sheets("Sheet1").Select
    Selection.PasteSpecial Paste:=xlPasteValues, Operation:=xlNone, SkipBlanks _
        :=False, Transpose:=False
    ActiveCell.Offset(0, 3).Columns("A:D").EntireColumn.Select
    Application.CutCopyMode = False
    Selection.Copy
    ActiveCell.Offset(0, -2).Select
    ActiveSheet.PasteSpecial Format:=3, Link:=1, DisplayAsIcon:=False, _
        IconFileName:=False
    ActiveCell.Offset(0, 4).Columns("A:F").EntireColumn.Select
    Selection.Delete Shift:=xlToLeft
    ActiveCell.Offset(0, -5).Select
End Sub