Copy values from one range and paste in another with some slight modifications

So I'm trying to copy data from row 3 through 20 and paste it repetitively beginning at row 21 based on the value of an input box. However, with each paste iteration I want to:

a) clear the pasted data in columns L & M
b) increment the values in the column K by 1

To illustrate what I'm looking for, I've attached my workbook which includes a sheet entitled 'Holes'. This worksheet displays the results of my code as it exists now (see below). The tab entitled 'What I want' displays the results I'm trying to achieve.

Sub RepeatDataWithColorAndClearColumns()
    Dim ws As Worksheet
    Dim lastRow As Long
    Dim repeatCount As Integer
    Dim i As Integer
    Dim colorIndex As Integer
    Dim pasteRange As Range
    
    ' Set reference to Sheet1
    Set ws = Worksheets("Hole")
    
    ' Prompt user for repeat count
    repeatCount = InputBox("Enter the number of times to repeat the data:", "Repeat Data")
    
    ' Validate input
    If Not IsNumeric(repeatCount) Then
        MsgBox "Invalid input. Please enter a numeric value.", vbExclamation
        Exit Sub
    End If
    
    ' Convert input to integer
    repeatCount = CInt(repeatCount)
    
    ' Find the last used row in column A
    lastRow = ws.Cells(ws.Rows.Count, "A").End(xlUp).Row
    
    ' Set starting row
    Dim startRow As Long
    startRow = 21
    
    ' Copy data from rows 3 through 20 and paste it repetitively
    For i = 1 To repeatCount
        ' Set paste range for each repetition
        Set pasteRange = ws.Rows(startRow).Resize(18, 13)
        
        ' Copy data and paste it in the paste range
        ws.Rows("3:20").Copy Destination:=pasteRange
        
        ' Shade the first row in the paste range from column 1 through 13 with a light color
        ShadeRange pasteRange.Rows(1), i
        
        ' Clear contents of columns 12 and 13 in the paste range starting from row 21
        pasteRange.Offset(1).Columns(12).Resize(pasteRange.Rows.Count - 1, 2).ClearContents
        
        ' Increment startRow by number of copied rows
        startRow = startRow + 18
    Next i
End Sub

Private Sub ShadeRange(rng As Range, ByVal colorIndex As Integer)
    ' Function to shade a range with a light color
    Dim cell As Range
    
    For Each cell In rng.Cells
        If cell.Column <= 13 Then ' Check if the cell is within columns 1 through 13
            cell.Interior.Color = GetColor(colorIndex)
        End If
    Next cell
End Sub

Private Function GetColor(ByVal index As Integer) As Long
    ' Function to get a light color based on the index
    Select Case index Mod 10
        Case 0
            GetColor = RGB(196, 215, 155) ' Light green
        Case 1
            GetColor = RGB(222, 193, 218) ' Light purple
        Case 2
            GetColor = RGB(184, 204, 228) ' Light blue
        Case 3
            GetColor = RGB(248, 203, 173) ' Light orange
        Case 4
            GetColor = RGB(214, 227, 188) ' Light yellow-green
        Case 5
            GetColor = RGB(234, 209, 220) ' Light pink
        Case 6
            GetColor = RGB(204, 192, 218) ' Light purple-blue
        Case 7
            GetColor = RGB(244, 176, 202) ' Light pink-red
        Case 8
            GetColor = RGB(201, 218, 248) ' Light sky blue
        Case 9
            GetColor = RGB(209, 227, 245) ' Light powder blue
    End Select
End Function