Saving A Range Or Row As A Variable

Sub Testing()
Dim r, LR As Range
Dim k As String
Dim i, Total_Hours, Employee_Row, Last_Row As Integer

i = 0
Employee_Row = 5

For Each r In Range("a1", Range("a" & Rows.Count).End(xlUp))
i = i + 1

If i 1 Then

If k = "" Then
'First Line
Total_Hours = Range("J" & r.Row).Value

I'm saving LR.Range ("A" & r.Row - 1) into LR as I need to use it outside the loop for the last row here

Sheets("Sheet2").Range("B" & Employee_Row).End(xlUp).FormulaR1C1 = Range("A" & LR.Row).Value

It seems I cannot save a range like thateven using LR as an interger and doing LR = r.Row does not work.