My macro needs a couple tweeks- Fairly simple copy and paste macro

**wiebs2334** · 05-11-2013, 06:34 PM

I am having issues with this code since im not 100% familiar with VB yet

Sub Submit_Round()
'
' Submit Round to Totals/Handicap Page
'
Dim NextCol As Long  
    Range("DL12:DL47").Select
    Selection.Copy
    Sheets("Totals & Handicap").Activate 
    For NextCol = 2 To 201
        If Cells(3, NextCol) = "" Then
            Range(Cells(3, NextCol), Cells(36, NextCol)).Paste
        End If
    Next NextCol       
End Sub

I would like to copy DL12:DL47 of the sheet I run the macro from, then move to Totals & Handicap and paste it in B3:B36 unless that range is used then I want it in C3:C36, ect. Is there a command to stop a loop like "break" in c++or java (cant remember which one, maybe both)? Or should I just use "Do While" instead of "For"

**AlphaFrog** · 05-11-2013, 08:23 PM

Try this...

Sub Submit_Round()
'
' Submit Round to Totals/Handicap Page
'
    Range("DL12:DL47").Copy _
        Destination:=Sheets("Totals & Handicap").Cells(3, Columns.Count).End(xlToLeft).Offset(, 1)
End Sub

BTW: Exit For will exit a For-Next loop.