Jon, I tried what you said. It is still bombing on the last line - the error is "object doesn't support property or method. Yes far is a numerical variable. I have included all the code (it isn't really a lot) this time. Thanks for your continued help.

Private Sub CommandButton1_Click()

Dim far As Double 'far = First Available Row

Dim fs As String 'fs = Formula String

'Get First empty row, Use Date Column (A) since it will always be the last row used

'(not true with other columns like debit and credit)

With Sheets("checking")

far = .Range("A" & .Rows.Count).End(xlUp).row + 1

End With

'Enter today's date in Date Column

Range("a" & far).Value = Now

'Copy formula for Balance down in balance column (B)

Range("B" & far - 1).Copy

Range("B" & far).Select

ActiveSheet.Paste

'Create formula string. We can't just copy credit down, because there may not be a

'formula in the last cell (i.e. row # far-1).

fs = "=gen_vlookup(E" & far & ",customers,2,5)+0.5*(gen_vlookup(E " & far & ",customers,2,9)"

fs = fs & "*--(gen_vlookup(E" & far & ",customers,2,10)<=A" & far & "))"

'Put formula into proper place

ActiveWorkbook.Worksheet.Range("checking!d" & far).Formula = fs

End Sub