don't know if this is the best way, but it works for me (replace your first
line with this): -
'===
Range("A65536").End(xlUp).Select
If ActiveCell.Value "" Then
ActiveCell.Offset(1, 0).Select
End If
'===

hth,

tim

"CarolineHedges"
<CarolineHedges.2ca3n5_1155136891.8779@excelforu m-nospam.com wrote in
message news:CarolineHedges.2ca3n5_1155136891.8779@excelfo rum-nospam.com...

Selection.End(xlDown).Select
Selection.Offset(2, 0).Select
ActiveCell.FormulaR1C1 = "Total Sales"

Is there a different formula I can use for the 1st line of the above,
to get around the problem it creates when there is only one row of data
in the block?

Thanks

Caroline


--
CarolineHedges
------------------------------------------------------------------------
CarolineHedges's Profile:
http://www.excelforum.com/member.php...o&userid=35705
View this thread: http://www.excelforum.com/showthread...hreadid=569941