Please comment on what each row is about to do

These are the sheets that this code should refer to PLUS sheet 20 which hold all of the data

Is there a problem with the coding ??


Sheets 4 to 17 inclusive

VKATV", "VKDStar", "VK23cm", "VKDMR", "VKC4FM", "VKP25", "VK1", "VK2", "VK3", "VK4", "VK5", "VK6", "VK7",  "VK8".

>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>


If possible I would like a BRIEF description as to what each line ( If possible) is about to do, so I can learn more about VBA...

Sub splitVK()
Application.ScreenUpdating = False
With Sheet20
    If .FilterMode Then .ShowAllData
    For vk = 3 To 17
        .Cells(1).CurrentRegion.AutoFilter 1, "VK" & vk & "*"
        With .AutoFilter.Range
            If .Columns(1).SpecialCells(xlCellTypeVisible).Cells.Count - 1 > 0 Then
               .Offset(1, 0).SpecialCells(xlCellTypeVisible).Copy Worksheets("VK" & vk).Range("A" & Rows.Count).End(xlUp).Offset(1)
               ' As suggested above code
            End If
        End With
        
    Next
    .ShowAllData
End With
Application.ScreenUpdating = True
End Sub