copy not contiguous cells via VBA

[marreco]

Hi.
It would be possible to copy, not contiguous cells via VBA?

I try, but doesn't work

Sub Copynon()Dim LR  As Long
LR = Range("A" & Rows.Count).End(xlUp).Row
Worksheets("PLANILHA PEDIDO").Range("N10,B10,S10,B22,C22,D22,J22,L22,M22").Copy 'Destination:=Sheets("CONSOLIDAR").Range("A2:I" & LR + 1)
End Sub

thanks

[xl_xl]

hi marreco.

try the following code to copy the non contiguous cells as contiguous.

Sub Copynon()
    Dim r_from As Range, r_to As Range

    Set r_to = Worksheets("CONSOLIDAR").Range("A" & Rows.Count).End(xlUp).Offset(1)
        For Each r_from In Worksheets("PLANILHA PEDIDO").Range("N10,B10,S10,B22,C22,D22,J22,L22,M22").Areas
        r_from.Copy Destination:=r_to
        Set r_to = r_to.Offset(, 1)
    Next r_from
End Sub

[snb]

Sub M_snb()
   with sheets(["PLANILHA PEDIDO")
      sheets("CONSOLIDAR").Cells(Rows.Count, 1).End(xlUp).Offset(1).Resize(, 9) = Array(.Range("N10").value, .Range("B10").value, .Range("S10").value, .Range("B22").value, .Range("C22").value, .Range("D22").value, .Range("J22").value, .Range("L22").value, .Range("M22").value)
   end with
End Sub

[marreco]

Hi. thank you very much!!!!