Code needs to Clear old data then Update specified Ranges when Value in Drop down is Chang

Hello All, Code needs to Clear old data then Update specified Ranges when Value in Drop down is Chang

Needing the following code altered if possible so that when Drop Down list value is changed the Code will Clear all Data from Main Gear starting at B:R44 and down 2, 4, 20 how ever many lines of data there are, and then place the new data in

Private Sub Worksheet_Activate()
    With Sheets("Combined Data")
        .AutoFilterMode = False
        With .Range("A1").CurrentRegion
            .AutoFilter Field:=3, Criteria1:=Sheets("Main Gear").Range("B42").Value
            .Offset(1).Columns("A:A").Copy Destination:=Sheets("Main Gear").Range("B44")
            .Offset(1).Columns("B:P").Copy Destination:=Sheets("Main Gear").Range("D44")
        End With
        .AutoFilterMode = False
    End With
End Sub

Thanks Again,
Aeneren