I have this code:

Sub Subtotals()
Dim SubTot As Integer
Dim Line1 As Double

Sheets("Temp").Select
Range("H2").Select
Line1 = Range("L2")
SubTot = Range("P4")
Do Until ActiveCell = ("Condiments")

SubTot = Line1 + SubTot
ActiveCell.Offset(1, 0).Select
Line1 = Range.Offset(1, 0) 'Fails on this line!!!


Range("P4") = SubTot
Loop

Can anyone please help me on being able to step my varible "Line1" down a
row??