VBA copy down rows

New Sample.xlsx 

I have to copy down rows in a way very similar to the previous code that copies down columns A & B.
For this project, I need to do the same with columns A, B, C D in the same way.
D copies down until not empty or C changed.
C copies down until not empty or B changed.
B copies down until not empty or A changed.
A copies down until not empty OR until K is empty.

The sample file shows the original from A - E  and what it should look like completed is F - K.
Please - can anyone help?! Thank you!

Sub Filldownrows()
    Worksheets("Sheet1").Activate
Dim lngLastRow As Long
Dim lngRow As Long
Dim strSubcat As String
Dim strCat As String

With ActiveSheet
    strCat = .Range("A2")
    strSubcat = .Range("B2")
    lngLastRow = .Cells(Rows.Count, "A").End(xlUp).Row
    For lngRow = 3 To lngLastRow
        If Not IsEmpty(.Cells(lngRow, "A")) Then
            If .Cells(lngRow, "A") <> strCat Then
                strCat = .Cells(lngRow, "A")
                strSubcat = ""
            End If
        End If
        
        If IsEmpty(.Cells(lngRow, "B")) Then
            .Cells(lngRow, "A") = strCat
            .Cells(lngRow, "B") = strSubcat
        Else
            strSubcat = .Cells(lngRow, "B")
            .Cells(lngRow, "A") = strCat
        End If
    Next
End With
End Sub

Select allOpen in new window