Copy to next blank column - almost there

[horizonflame]

Hi All,

Sub DatesRaw()
Sheets("DataRaw").Select
Application.Goto Reference:="R2C1:R10000C4,R2C8:R10000C8"
Selection.Copy

Sheets("DatesRaw").Range("L3").End(xlToLeft).Offset(0, 1).PasteSpecial xlPasteValues

End Sub

I want to post to the first blank cell in Row 'L' after L3, but it is pasting to B3. Any correction pls?

 

[Fluff]

Do you mean the first blank row in COLUMN L? Or the first blank column in ROW 3?

 

[JoeMo]

Change the paste line to this:

Sheets("DatesRaw").Cells(3,Columns.Count).End(xlToLeft).Offset(0, 1).PasteSpecial xlPasteValues

 

[horizonflame]

Hi @Fluff, apologies I mean first blank column in ROW 3 after L3
@JoeMo, thank you.

 

[JoeMo]

Hi @Fluff, apologies I mean first blank column in ROW 3 after L3
@JoeMo, thank you.

You are welcome - thanks for the reply.