Copy rows to new sheet based on value in Column 1

[lzrdlvr]

Good morning,

I have cobbled together some code to copy rows of one worksheet to the first blank row of another worksheet if there is a "Yes" in Column 1. However, I don't want to copy all the columns. There are 33 columns and I only want to copy Columns 2-30.

What do I need to change in my code (below)?

Any help is very much appreciated!!

Sub KOSummary()
Dim iMaxCol As Integer

    iMaxCol = 100
      
    Sheets("KO").Select
      
    If ActiveSheet.AutoFilterMode Then
        Cells.Select
        Selection.AutoFilter
    End If
      
    Cells.Select
    If ActiveSheet.AutoFilterMode = False Then
        Selection.AutoFilter
    End If
      
    Selection.AutoFilter Field:=1, Criteria1:="Yes", Operator:=xlAnd
      
    ilastrow = Cells(Rows.Count, 1).End(xlUp).Row
      
     
    For iCol = 2 To iMaxCol
        tMaxRow = Cells(Rows.Count, iCol).End(xlUp).Row
        If (tMaxRow > ilastrow) Then ilastrow = tMaxRow
          
    Next
    
    If (ilastrow = 1) Then
        MsgBox ("No Rows Marked Yes for Summary")
      
        If ActiveSheet.AutoFilterMode Then
            Cells.Select
            Selection.AutoFilter
        End If
          
        Exit Sub
    End If
      
    If Sheets("Summary").AutoFilterMode Then
        Sheets("Summary").Cells.Select
        Sheets("Summary").Selection.AutoFilter
    End If
          
    iMaxDone = Sheets("Summary").Cells(Rows.Count, iCol).End(xlUp).Row
    For iCol = 2 To iMaxCol
        tMaxRow = Sheets("Summary").Cells(Rows.Count, iCol).End(xlUp).Row
        If (tMaxRow > iMaxDone) Then iMaxDone = tMaxRow
          
    Next
      
    If iMaxDone < 2 Then iMaxDone = 1
    iMaxDone = iMaxDone + 1
      
    'Rows("2:Range(Cells(2, 1), Cells(ilastrow, iMaxCol)).Select
    Rows("2:" & ilastrow).Select
    Selection.Copy
      
    Sheets("Summary").Select
    Cells(iMaxDone, 1).Select
    Selection.PasteSpecial Paste:=xlPasteValues
      
    Sheets("Summary").Select
    Cells(iMaxDone, 1).Select
    Selection.PasteSpecial Paste:=xlPasteFormats
    
    Sheets("KO").Select
      
    If ActiveSheet.AutoFilterMode Then
        Cells.Select
        Selection.AutoFilter
    End If
End Sub