Can't add DropLists automatically to new row in Table

[Ochimus]

If I select the next free row in Cols C & D (Row 5 in this example), Macro should 'copy and paste' the DropLists from the row above, then clear the contents, as shown in Cols L and M.

Attached Code doesn't do it, but can't see why?

Option Explicit
Dim n As Long

Private Sub Worksheet_SelectionChange(ByVal Target As Range)

    With Sheet1
    n = .Cells(.Rows.Count, "C").End(xlUp).Row + 1
    If n < 5 Then n = 5
    
    If Target.Count > 1 Then Exit Sub
    
    If Not Intersect(Target, Range("C" & n)) Is Nothing Then
        If Target = "" Then
        Target = Target.Offset(-1, 0)
        Target.Offset(0, 1) = Target.Offset(-1, 1)
        End If
    End If
    
    End With
    
End Sub

All solutions, suggestions or alternatives welcome as ever

Ochimus