Help? Macro Error

Help? Macro Error

I receive an error here : Invalid class for field get:
The line with the * is the line that caused that error.
Thanks for the help.

Sub IALLOC()
'
' IALLOC Macro
' Macro recorded 24/06/2004 by Tirso Paris
'

'
    Dim II As Integer
    Dim IB As Integer
    'Sheets("Irrig").Select
    Range("Irrig").Select
    Range("A107:F119").Select
    Selection.ClearContents
    For II = 0 To 8
    'Application.Goto Reference:="IIndex"
    Range("IIndex").Select
    ActiveCell = II
    Range("A106:F106").Select
    Selection.Copy
    Range("A105").Select
    Selection.End(xlDown).Select
*    ActiveCell.Offset(1, 0).Range("A1").Select
    'Selection.PasteSpecial Paste:=xlPasteValues, Operation:=xlNone, SkipBlanks _
    '    :=False, Transpose:=False
    ActiveSheet.Paste
    Next
    
'   This is for increasing budgetary allocation
    Range("A197:H208").Select
    Selection.ClearContents
    'Application.Goto Reference:="IIndex"
    Range("IIndex").Select
    ActiveCell = 0
    For IB = 0 To 10
    'Application.Goto Reference:="IBIndex"
    Range("IBIndex").Select
    ActiveCell = IB
    Range("A196:H196").Select
    Selection.Copy
    Range("A195").Select
    Selection.End(xlDown).Select
    ActiveCell.Offset(1, 0).Range("A1").Select
    'Selection.PasteSpecial Paste:=xlPasteValues, Operation:=xlNone, SkipBlanks _
    '    :=False, Transpose:=False
    ActiveSheet.Paste
    Next
    Range("A1").Select
End Sub