Next Empty Column

[yorkbay]

I know this should be simple but I'm new to this and not understanding how to reference properly. I'm trying to take my range F1:F121 and copy it to the next empty column. My code is pushing it to the end of all columns that have data but there is a blank column in that range that is where I want it to move. Here is my code:

Range("F1:F121").Copy
Cells(1, Columns.Count).End(xlToLeft).Offset(0, 1).PasteSpecial Paste:=xlPasteValues
Application.CutCopyMode = False
Range("F1:F120").ClearContents

Columns G is used, column H is empty, columns I, J, K etc have data. I want my copied range to paste to the next empty column to the right of F which would be H. Can someone please assist and explain so I can learn how to read the code? Thank you in advance.

 

[Zot]

You can just use xlToRight from Range("F1") then to get to nest empty column, like

ActiveSheet.Range("F1:F121").Copy ActiveSheet.Cells(1, ActiveSheet.Range("F1").End(xlToRight).Column + 1)