Incement column in VBA

[wilest]

Hi
I desperately need help. I want my macro to:
select A1:C68 and cut it and paste it on another place and the
select D1:F68 and cut it and paste it on another place etc etc
Please help!

    Dim i As Integer
    var1col = 1
    var2col = 3
    var3 = 1
    For i = 1 To 100
    Windows("Book2").Activate
    Range(var1col & "1" & ":" & "68" & var2col).Select
    Selection.Cut
    Windows("results.xlsx").Activate
    Range("E" & var3).Select
    ActiveSheet.Paste
    var1col = var1col + 3
    var2col = var2col + 3
    var3 = var3 + 68
    Next i

 

[wilest]

You are a genius, thank you so much, I did the following changes and it worked like a charm:

Sub CopyMe()
Dim wbSrc As Workbook
Dim wbDst As Workbook
Dim wsSrc As Worksheet
Dim wsDst As Worksheet
Dim rngSrc As Range
Dim rngDst As Range

    Set wbSrc = ActiveWorkbook
    
    Set wsSrc = wbSrc.Worksheets("Sheet1")
    
    
    Set rngSrc = wsSrc.Range("A1:C68")
    
    Set wbDst = Workbooks("results.xlsx")
    
    Set wsDst = wbDst.Worksheets("Sheet1")
    Set rngDst = wsDst.Range("E1")
        
    Dim i As Integer
    For i = 1 To 1000
    
   
        rngSrc.Copy rngDst
        
        rngSrc.Clear
        
        Set rngSrc = rngSrc.Offset(, 3)
        
        Set rngDst = rngDst.Offset(68)
    Next i

    
End Sub

Thank you for the great forum!

 

[Norie]

Glad you got it working.

Just out of curiosity did the original While...Wend loop not work?