Erreur macro si cellule vide

Bonjour,

J'ai une macro comme ceci:
Sub test()
Dim Cell1 As Range
Dim Cell2 As Range
Dim Cell3 As Range

Set Cell1 = Range("D22")
Set Cell2 = Range("D22:D37").Find("*", , xlValues, , , xlPrevious)
Set Cell3 = Worksheets("FD").Columns("C:C").Find("*", , xlValues, , , xlPrevious).Offset(1)
Range(Cell1, Cell2).Copy
Cell3.PasteSpecial Paste:=xlPasteValuesAndNumberFormats
Application.CutCopyMode = False

End Sub

Le problème c'est que si je n'ai rien d'inscris dans la rangée d22:d37.la macro me fais une erreur.comment faire pour que si j'ai pas rempli ces cellules que je ne reçoive pas ce méssage d'érreur car ma macro fonctionne bien!