运行VBA脚本以从块中的文本输出创建简单报表时运行时出现运行时错误

Question

Sub blockofdatatoreport()

Dim i As Integer
Dim x As Integer
Dim y As Integer

For i = 1 To 95     
    actvrw = Sheet1.Range("A:A").Find(what = i, searchdirection = xlNext).Row
    'searching cells top to bottom

    lr = Sheet2.Range("A:A").Find(what = "*", searchdirection = xlprevious).Row + 1
    'searching cells bottom to top

    For x = 1 To 5
        Sheet2.Cells(lr, 1).Value = Sheet1.Cells(actvrw + (x - 1), 3).Value
        'looping the first five columns in sheet2       
    Next

    For y = 1 To 4
        Sheet2.Cells(lr, 5 + y).Value = Sheet1.Cells(actvrw + (y - 1), 6).Value
        'looping the next four columns after the first four is done in sheet2
    Next        
    'You can also write like this or write a loop in two lines above.
    'Sheet2.Cells(lr, 1).Value = Sheet1.Cells(actvrw, 3).Value
    'Sheet2.Cells(lr, 2).Value = Sheet1.Cells(actvrw + 1, 3).Value
    'Sheet2.Cells(lr, 3).Value = Sheet1.Cells(actvrw + 2, 3).Value
    'Sheet2.Cells(lr, 4).Value = Sheet1.Cells(actvrw + 3, 3).Value
    'Sheet2.Cells(lr, 5).Value = Sheet1.Cells(actvrw + 4, 3).Value        
Next

End Sub

我收到错误称为错误13 y类型不匹配，上面的代码是什么导致错误??