Not able to copy rows via VB

[kamal bhatt]

Hello,

I am trying to use VB for repeating 3 itenaries in a table, 31 times each. Not able to do so. using the below mentioned script. Can anyone help?

Sub Do_It()
    Application.ScreenUpdating = False
    With ActiveSheet
        .Range("A2:L2").Copy Destination:=.Range("N2")
        N = 3
        a = 3
        Do
            .Range("A" & a & ":L" & a).Copy
            .Range(.Cells(N, "N"), .Cells(N + 30, "N")).PasteSpecial Paste:=xlPasteValues, Operation:=xlNone, SkipBlanks:=False, Transpose:=False
            a = a + 5
            l = N + 5
        Loop Until .Cells(a, "A") = Empty
    End With
    With Application
        .CutCopyMode = False
        .ScreenUpdating = True
    End With
   
End Sub

 

[kamal bhatt]

it is done now.. Thanks.. used

Sub Do_It()
    Application.ScreenUpdating = False
    With ActiveSheet
        .Range("A2:L2").Copy Destination:=.Range("N2")
        f = 3
        a = 3
        Do
            .Range("A" & a & ":L" & a).Copy
            .Range(.Cells(f, "N"), .Cells(f + 30, "N")).PasteSpecial Paste:=xlPasteValues, Operation:=xlNone, SkipBlanks:=False, Transpose:=False
            a = a + 1
            f = f + 31
        Loop Until .Cells(a, "A") = Empty
    End With
    With Application
        .CutCopyMode = False
        .ScreenUpdating = True
    End With
End Sub

 

[vletm]

kamal bhatt
... and use Code - tags