Find * Column A and Paste Special Values

[Racer]

I am trying to scan every row in Column A for this symbol * , when this symbol * is found I’d like the macro to copy the row and perform a paste special / values for the row that the * was found in.

This is what I have so far but I am kind of stuck, if you could lend a hand i would appreciate the help. Thanks

Range("A?:A?").Copy
Range("A?:A?").PasteSpecial Paste:=xlPasteValues, _
Operation:=xlNone, SkipBlanks:=False, Transpose:=False
End With
Application.CutCopyMode = False
Application.ScreenUpdating = True