Copy to next blank column - almost there

horizonflame

Board Regular
Joined
Sep 27, 2018
Messages
156
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?
 

Some videos you may like

Excel Facts

How can you automate Excel?
Press Alt+F11 from Windows Excel to open the Visual Basic for Applications (VBA) editor.

Fluff

MrExcel MVP, Moderator
Joined
Jun 12, 2014
Messages
35,943
Office Version
365
Platform
Windows
Do you mean the first blank row in COLUMN L? Or the first blank column in ROW 3?
 

JoeMo

MrExcel MVP
Joined
May 26, 2009
Messages
16,692
Change the paste line to this:
Code:
Sheets("DatesRaw").Cells(3,Columns.Count).End(xlToLeft).Offset(0, 1).PasteSpecial xlPasteValues
 

Watch MrExcel Video

Forum statistics

Threads
1,090,119
Messages
5,412,553
Members
403,432
Latest member
cr2141

This Week's Hot Topics

Top