Диапазон копирования VBA повторяется со смещением

Question

Я пытаюсь скопировать диапазон (строки), повторенный несколько раз в VBA, где я знаю имя начальной ячейки и размер диапазона.

Sub test()
  Dim LastRow As Long, x As Long, a As Long, b As Long
  a = Sheets("sd").Cells(Rows.Count, 1).End(xlUp).Row
  For x = 1 To a
     If Worksheets("sd").Cells(x, 2) = "58117552" Then
      Sheets("sd").Range(Cells(x, 2), Cells(x, 2).Offset(13, 0)).entireRows.Copy
      Sheets("sheet1").Activate
      Sheets("sheet1").Cells(1, 1).Select
      Sheets("sheet1").Paste
      Sheets("sheet1").Activate
    End If
  Next
End Sub

Очевидно, этот код не работает, но я не знаю, как правильно выбрать этот диапазон

Спасибо за помощь

Answer 1

Это смещение (13) немного сбивает с толку, но вот ваш код с удаленными выборками.

Sub test()
    Dim a As Long
    Dim sh As Worksheet, ws As Worksheet

    Set sh = Sheets("sd")
    Set ws = Sheets("Sheet1")

    With sh
        a = .Cells(.Rows.Count, 2).End(xlUp).Row
        For x = 1 To a
            If .Cells(x, 2) = "58117552" Then
                .Cells(x, 2).Offset(13, 0).EntireRow.Copy ws.Cells(ws.Rows.Count, "A").End(xlUp).Offset(1)
            End If
        Next x
    End With

End Sub