Hi,

For a start and to be adjusted to your specific needs ...

Sub Dependents()
ActiveCell.Copy
ActiveCell.Dependents.Select
Selection.PasteSpecial Paste:=xlFormats, Operation:=xlNone,
SkipBlanks:= _
False, Transpose:=False
Application.CutCopyMode = False
End Sub

HTH
Cheers
Carim