Need macro solution to copy/paste formula from first filtered cell

[mwhulse]

I need a macro solution to perform the following tasks...

1. Filter column A for all blanks
2. Select first resulting cell and enter a formula in it
3. Copy that formula into columns B thru O then down to last row in filtered list
4. Copy all new formula cells and paste value over them

 

[mwhulse]

Ok... I was able to complete step 1 and the first part of step 2 with the following

Sub Commit()
'
' Filter column A for blanks and select column A row 2
'
Columns("A:A").Select
ActiveSheet.Range("$A$1:$T$3000").AutoFilter Field:=4, Criteria1:="="
'
' Select first cell in filtered results
'
Range([A2], Cells(Rows.Count, "A")).SpecialCells(xlCellTypeVisible)(1).Select
End Sub

Now my challenge is how to enter the following formula in the selected cell using VB Macro to complete step 2 ...

=OFFSET(CurrentCell.Address,-1,0)