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

Please ignore this reply.

You can't resize <1 and you can't offset -2 from the second column; is what immediately "pops out"

Darn, I wish I'd kept my reply now

Hi,

You need Cells, not Range if you want to pass a row and column argument like that, and the size and offset are wrong.

Did you mean to start your loop from B15?

For i = 1 To LastRow
                If .Cells(i, 7).Value <> "" Then
                    .Cells(i, 1).Resize(1,7).Copy
                End If
            Next i

????


I was wrong about the column offset as it's, obviously, a row offset.

Offset and resize do not work the same way, Resize(0,-7) is

defining a zero rows and negative 7 columns - it can never was:|

@ Special-K You can reinstate your reply - we won't care and we'd like to see it

Try this:

Sub stevoDEAuto()

Dim LastRow As Long
Dim rng As Range

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

Set rng = Range("B8:B" & LastRow).Resize(, 7)
rng.AutoFilter Field:=7, Criteria1:="<>"
rng.SpecialCells(xlCellTypeVisible).EntireRow.Copy
rng.AutoFilter
End Sub

Please ignore.

Try:

rng.SpecialCells(xlCellTypeVisible).Resize(,7).Copy