Более эффективный Multiple Copy / Paste Excel VBA

Question

Я копирую массив форм из листа и вставляю его несколько раз в ячейки на другом листе (до 200 раз). У меня серьезные проблемы с производительностью и постоянные ошибки 1004. Я добавил PauseEvent, который помог, но я надеюсь, что у кого-то есть умная идея для оптимизации.

Sheets("Images").Shapes.Range(Array("EthernetPorts")).Select
Selection.Copy
Sheets("Drawing Board").Select

For a = 0 To d

Set XRng = Rng.Offset(a, b)

PauseEvent (0.2)

Sheets("Drawing Board").Paste

With Selection

.Left = XRng.Left + (XRng.Width * 0.75): .Top = XRng.Top + (XRng.Height * 0.3): .Name = "Ethernet" & i

End With

With Sheets("Drawing Board").Shapes.Range(Array("LowPort"))
.Name = "EPortIn" & i
End With

With Sheets("Drawing Board").Shapes.Range(Array("HighPort"))
.Name = "EPortOut" & i
End With

i = i + 1

Next a