Runtime error 1004 Method 'Range' of object_ Global Failed

Can someone please tell me why this code is failing?

Sub test()

Dim LastRow As Long
Dim rng As Range
Dim i As Long

LastRow = Cells(Rows.Count, "B").End(xlUp).Offset(-2, 0).Row

Set rng = Range("B8:B" & LastRow).Resize(, 7)
 
     With rng
            For i = 1 To .Rows.Count
                If .Cells(i, 7).Value <> "" Then
                    Range(i, 7).Resize(0, -7).Copy
                End If
            Next i
       End With
End Sub

*edit* I = 1 to .rows.count and not 8