Change code to Paste to the right.

[SEMME]

Thank you for your help . I have this code;

Dim PasteRange As Range

If Sheets("MAIN").Range("B1") = "" Then
Set PasteRange = Sheets("MAIN").Range("B2")
Else
Set PasteRange = Sheets("MAIN").Range("B65536").End(xlUp).Offset(1, 0)
End If

Sheets("MAIN").Range("A2:A36").Copy
PasteRange.PasteSpecial Paste:=xlPasteValues

How do I get this code to paste to the next empty column to the right
as oppposed to the bottom of column B?
Contents of A2:A36 will be pasted to B2:B36, then again to C2:C36 and so forth...

SEMME

 

[VoG]

Try

Sub test()
With Sheets("MAIN")
    .Range("A2:A36").Copy
    .Cells(2, Columns.Count).End(xlToLeft).Offset(, 1).PasteSpecial Paste:=xlPasteValues
End With
End Sub

 

[SEMME]

Yep VoG,
...that is what I was looking for, ohhh yeah! speeds things up..I'll tell you. hehe

Thx,
SEMME