Alter Code to Copy & Paste from a Drop down listl to a Specified Range

[Aeneren]

Hello All,

Tried altering this Code to do the following but my knowledge is still limited with VBA so could someone give me a hand and alter this code to:

Look at the Combined Data Tab in Column "C: for a specific Word that will be located on Sheet1 Cell "C20" then "copy & paste" including all Source Font to Sheet1 starting at A23

Private Sub Worksheet_Activate()
With Sheets("Combined Data")
    .Range("A1", "R" & UsedRange.Rows.Count).AutoFilter Field:=2, Criteria1:="C"
    With Sheets("Combined Data").Range("A1").CurrentRegion
        .Offset(1).Copy Worksheets("sheet1").Range("A2")
    End With
    .AutoFilterMode = False
End With
End Sub

Thanks Again
Aeneren