Autofill Columns In Row1 According To Last Filled Column In Row2

[GauciG]

Hi

I am looking for a macro that copies the formula in cell A1 and autofills row1 till the last filled column in row2.

Sub AutofillColumnsInRow1AccordingToLastFilledColumnInRow2()
Dim lastColumn As Long
lastColumn = Range(Columns.Count & 2).End(xlToLeft).Column
Range("A1").AutoFill Destination:=Range("A1:" & lastColumn & "1")
End Sub

Any suggestions
Kind regards
George

 

[Tim_Excel_]

It shouldn't, since you are calculating lastCol from row 1, not row 2.

You're right. Tested it for row 2, then couldn't remember why I used row 2 and changed it to row 1 in my post.