Multiple offset cells in range no idea why this code doesnt work

[mysticmario]

I have this code

Private Sub CommandButton1_Click()
Dim rng As Range, cell As Range, lr As Long


Set rng = Range("H144:H174")
For Each cell In rng
    If Not IsEmpty(cell) And cell.Value <> 0 Then
    Range(cell.Offset(0, -5), cell.Offset(0, -4), cell.Offset(0, -3), cell.Offset(0, 2)).Copy
    lr = Sheets("Lista materiałowa").Cells(Rows.Count, "B").End(xlUp).Row
    Sheets("Lista materiałowa").Cells(lr + 1, "B").PasteSpecial Paste:=xlPasteValues
    Else
    MsgBox "No data"

End If
Next cell

End Sub

For some reason line:
Range(cell.Offset(0, -5), cell.Offset(0, -4), cell.Offset(0, -3), cell.Offset(0, 2)).Copy does not work dunno why.

Can someone help me a little?

 

[Fluff]

Try

    Union(cell.Offset(0, -5), cell.Offset(0, -4), cell.Offset(0, -3), cell.Offset(0, 2)).Copy

 

[mysticmario]

 

[mysticmario]

Also there is a problem since the cell I want to use are merged I get

 

[mysticmario]

Fixed the issue I went about it the wrong way
I wanted to copy those cells in 1 row on another sheet and code above wanted to put them into 1 collumn
Here's the fixed code i made to make it happen just for future "researchers"

Private Sub CommandButton1_Click()
Dim rng As Range, cell As Range, lr As Long


Set rng = Range("H144:H174")
For Each cell In rng
    If Not IsEmpty(cell) And cell.Value <> 0 Then
    lr = Sheets("Lista materiałowa").Cells(Rows.Count, "B").End(xlUp).Row
    cell.Offset(0, -5).Copy
        Sheets("Lista materiałowa").Cells(lr + 1, "B").PasteSpecial Paste:=xlPasteValues
    lr = Sheets("Lista materiałowa").Cells(Rows.Count, "C").End(xlUp).Row
    cell.Offset(0, -4).Copy
        Sheets("Lista materiałowa").Cells(lr + 1, "C").PasteSpecial Paste:=xlPasteValues
    lr = Sheets("Lista materiałowa").Cells(Rows.Count, "D").End(xlUp).Row
    cell.Offset(0, -3).Copy
        Sheets("Lista materiałowa").Cells(lr + 1, "D").PasteSpecial Paste:=xlPasteValues
    lr = Sheets("Lista materiałowa").Cells(Rows.Count, "E").End(xlUp).Row
    cell.Copy
        Sheets("Lista materiałowa").Cells(lr + 1, "E").PasteSpecial Paste:=xlPasteValues
    lr = Sheets("Lista materiałowa").Cells(Rows.Count, "F").End(xlUp).Row
    cell.Offset(0, 2).Copy
        Sheets("Lista materiałowa").Cells(lr + 1, "F").PasteSpecial Paste:=xlPasteValues
    
    Else
    MsgBox "No data"

End If
Next cell

End Sub

However the Union instead of Range would've worked aswell if these cells weren't merged so thumbs up for you

 

[Fluff]

Glad you sorted it & thanks for the feedback.