Using array to make 'for' loop more efficient

Hi,

Perhaps you could do this by filtering the "Data" sheet before copying and pasting..

Sub Macro1()
Dim BK As Variant, ST As Variant
Dim rFilterRange As Range

With Sheets("Input")
BK = .Range("B1").Value
ST = .Range("B2").Value
End With

Sheets("Data").Select
Set rFilterRange = Sheets("Data").Range("A1:G" & Cells(Rows.Count, 1).End(xlUp).Row)
    
    rFilterRange.AutoFilter Field:=1, Criteria1:="=" & BK
    rFilterRange.AutoFilter Field:=3, Criteria1:="=" & ST & "*"
    
    ActiveSheet.UsedRange.Select
    Selection.Copy
    Sheets("Output").Select
    Range("A1").Select
    ActiveSheet.Paste
End Sub