Select method of Range class failed - Excel 2007

[kimBQT7]

Hello,

The code below generates the "select method of range class failed" in Excel 2007. Anyone know how to fix the code?

Sub namerange()
Dim r As Integer
Dim rr As Range
Sheet2.Range("servicestotalrow_col2").EntireRow.Insert Shift:=xlUp
Set rr = Sheet2.Range("servicestotalrow_col2").Offset(-1, 0).EntireRow
rr.Select
r = Selection.Row

End Sub

Thanks