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