Code to run if cell not blank

[khalid79m]

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?

[starguy]

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?

Please read forum rules and put this question in Excel Programming forum.