Find the next blank Column, copy a formula down the row...

[gheyman]

I need to find the next blank column and place the date/time in row 1 and then copy this formula down to the last row. Then copy paste value that Column so its no longer formulas.

Dim PLCLstRow2 As Long
Dim PLCLstCol As Long

PLCLstRow1 = Sheets("PLC_SUMMARY").Range("Z" & Rows.Count).End(xlUp).Row ****I THINK****
PLCLstCol = Sheets("PLC_SUMMARY").UsedRange.Columns.Count + Sheets("PLC_SUMMARY").UsedRange.Column - 1 ****I THINK****

FormulaR1C1 = _
"=SUMIF('54_TPL_01_02'!C7,PLC_SUMMARY!RC1,'54_TPL_01_02'!C12)"

I've been trying for hours and give up. Help Please!

 

[Roderick_E]

How about:

Sub donext()
lastrow = Cells.Find(What:="*", SearchDirection:=xlPrevious, SearchOrder:=xlByRows).Row
lastcol = Cells.Find(What:="*", SearchDirection:=xlPrevious, SearchOrder:=xlByColumns).Column + 1 'after last populated col
nowdate = Now()
For x = 1 To lastrow
Cells(x, lastcol) = nowdate
Next x
End Sub