Add different number of rows based on values in certain column

[zack8576]

Hello, I need to add one additional row after any row contain the keyword "Skimmer(2)" in column K, and copy all values from the row with the keyword;
two additional row after any row contain the keyword "Skimmer(3)" in column K, and copy all values from the row with the keyword into the new rows;
three additional row after any row contain the keyword "Skimmer(4)" in column K, and copy all values from the row with the keyword into the new rows

I will run this macro on many files, all files have the same format, see below:

any help is greatly appreciated !

 

[iggydarsa]

Sub Skimmer()
    lr = Range("K" & Rows.Count).End(xlUp).Row
    
    For i = lr To 1 Step -1
        If Range("K" & i).Value = "Skimmer(2)" Then
            Rows(i + 1 & ":" & i + 1).Insert
            Range(Cells(i, 1), Cells(i, Columns.Count)).Copy Range("A" & i + 1 & ":A" & i + 1)
        End If
        If Range("K" & i).Value = "Skimmer(3)" Then
            Rows(i + 1 & ":" & i + 2).Insert
            Range(Cells(i, 1), Cells(i, Columns.Count)).Copy Range("A" & i + 1 & ":A" & i + 2)
        End If
        If Range("K" & i).Value = "Skimmer(4)" Then
            Rows(i + 1 & ":" & i + 3).Insert
            Range(Cells(i, 1), Cells(i, Columns.Count)).Copy Range("A" & i + 1 & ":A" & i + 3)
        End If
    Next i
End Sub

 

[zack8576]

Sub Skimmer()
    lr = Range("K" & Rows.Count).End(xlUp).Row
   
    For i = lr To 1 Step -1
        If Range("K" & i).Value = "Skimmer(2)" Then
            Rows(i + 1 & ":" & i + 1).Insert
            Range(Cells(i, 1), Cells(i, Columns.Count)).Copy Range("A" & i + 1 & ":A" & i + 1)
        End If
        If Range("K" & i).Value = "Skimmer(3)" Then
            Rows(i + 1 & ":" & i + 2).Insert
            Range(Cells(i, 1), Cells(i, Columns.Count)).Copy Range("A" & i + 1 & ":A" & i + 2)
        End If
        If Range("K" & i).Value = "Skimmer(4)" Then
            Rows(i + 1 & ":" & i + 3).Insert
            Range(Cells(i, 1), Cells(i, Columns.Count)).Copy Range("A" & i + 1 & ":A" & i + 3)
        End If
    Next i
End Sub

this works great, thank you very much !