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 to find 2nd largest value in a column?
MAX finds the largest value. =LARGE(A:A,2) will find the second largest. =SMALL(A:A,3) will find the third smallest

Fluff

MrExcel MVP, Moderator
Joined
Jun 12, 2014
Messages
35,764
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,089,751
Messages
5,410,229
Members
403,303
Latest member
pajg

This Week's Hot Topics

Top