how to copy multiple cells from various rows

[Falcons88]

Hi,

I am trying to copy multiple cells from one sheet and paste them into another, I have code to copy them from a single line which is:

Sheets("Input Sheet").Range("A6:H6").Copy

but I am trying to copy and paste the below highlighted range in a specific order as numbered in the highlighted cells (H18 is the last one to be copied)

they are being pasted into the following table called "invoices", the sheet is also called invoices.

thanks in advance

 

[DanteAmor]

Try this:

Sub copycells()
  Dim i As Long, j As Long
  Dim ar1 As Variant, ar2 As Variant
  
  ar1 = Array("B7", "D7", "E7", "A7", "C7", "H18")
  ar2 = Array(1, 2, 3, 4, 5, 7)
  With Sheets("invoices").ListObjects("invoices")
    .ListRows.Add AlwaysInsert:=True
    i = .DataBodyRange.Rows.Count
    For j = 0 To UBound(ar1)
      .DataBodyRange(i, ar2(j)).Value = Sheets("Input Sheet").Range(ar1(j)).Value
    Next
  End With
End Sub

 

[Falcons88]

Try this:

Sub copycells()
  Dim i As Long, j As Long
  Dim ar1 As Variant, ar2 As Variant
 
  ar1 = Array("B7", "D7", "E7", "A7", "C7", "H18")
  ar2 = Array(1, 2, 3, 4, 5, 7)
  With Sheets("invoices").ListObjects("invoices")
    .ListRows.Add AlwaysInsert:=True
    i = .DataBodyRange.Rows.Count
    For j = 0 To UBound(ar1)
      .DataBodyRange(i, ar2(j)).Value = Sheets("Input Sheet").Range(ar1(j)).Value
    Next
  End With
End Sub

Thank you so much @DanteAmor

 

[DanteAmor]

I'm glad to help you. Thanks for the feedback.