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