Slightly quicker:
======================
Dim TotalRows As Long

TotalRows = ActiveSheet.UsedRange.Rows.Count
Range(cells(1,X),cells(TotalRows,X)).FormulaR1C1=" =477*RC17"
=======================

The R1C1 notation makes it a little easier.
R represents the row of the formula
C17 represents column Q

--
steveB

Remove "AYN" from email to respond
"BerkshireGuy" wrote in message
oups.com...
Hmmm,

I tried this and it seemed to work:

Dim TotalRows As Integer, Row As Integer

TotalRows = ActiveSheet.UsedRange.Rows.Count


With objSht
For Row = 1 To TotalRows Step 1

Cells(Row, "U").Formula = "=477 * Q" & Row & ""
Next Row
End With