Sub Macro15()
Dim LastCell As Range
Range("K1:K2").Copy Range("K3")
Workbooks("AGJ603f.csv").Range ("K4")
.FormulaR1C1 = "yourformula"
Set LastCell = .End(xlDown)
.AutoFill Destination:=.Resize(LastCell.Row - 3), _
Type:=xlFillDefault
End With
End SUb

--
HTH

Bob

(there's no email, no snail mail, but somewhere should be gmail in my addy)

"Dtmos01" wrote in message
...
How do I apply that section to my current macro?

"Bob Phillips" wrote:

Dim LastCell As Range
Range("K1:K2").Copy Range("K3")
Workbooks("AGJ603f.csv").Range ("K4")
.FormulaR1C1 = "yourformula"
Set LastCell = .End(xlDown)
.AutoFill Destination:=.Resize(LastCell.Row - 3), _
Type:=xlFillDefault
End With


--
HTH

Bob

(there's no email, no snail mail, but somewhere should be gmail in my
addy)