Excel Forum

Code: Select all

Sub Copy_Data()
Dim i As Range
Dim myLastRow As Long
        Columns("A:AY").EntireColumn.Hidden = False            'To UnHide Columns B to D
    For Each i In Worksheets("Trim.V2").Range("AZ1").Cells
        myLastRow = Sheets("Trim.V2").Range("A" & Rows.Count).End(xlUp).Row + 1
        Sheets("Trim.V2").Range("A" & i & ":AY" & i).copy
        Sheets("Trim.V2").Range("A" & myLastRow).PasteSpecial Paste:=xlPasteFormulasAndNumberFormats, _
        Operation:=xlNone, SkipBlanks:=False, Transpose:=False
    Next i
        Columns("AG:J,AP:AQ,AV:AX").Selection.EntireColumn.Hidden = True             'To Hide Columns B to D
End Sub