Code to run if cell not blank

Range("D10000").Select
                Range(Selection, Selection.End(xlDown)).Select
                Application.CutCopyMode = False
                Selection.Copy
                Range("A10030").Select
                ActiveSheet.Paste

I want the above code only to run if D10001 is not blank ,,, can anyone help?