Измените текущий код от копирования всей строки до статического диапазона

Если вы хотите скорректировать код, приведенный ниже, от копирования целой строки до статического диапазона строк (например: A: Q)

Sub CopyRows() Dim bottomL As Integer Dim x As Integer bottomL = Sheets("Pacer").Range("L" & Rows.Count).End(xlUp).Row: x = 1 Dim c As Range For Each c In Sheets("Raw Data").Range("A1:L" & bottomL) If (c.Value = "Group1" Or c.Value = "Group2" Or c.Value = "Group3") Then c.EntireRow.Copy Worksheets("Formatted Data").Range("A" & x + 1) x = x + 1 End If Next c End Sub 

Может быть проще всего использовать Intersect.

 intersect(c.parent.columns("A:Q"), c.EntireRow).Copy Worksheets("Formatted Data").Range("A" & x + 1) 
Давайте будем гением компьютера.