How to avoid copying data if cells are blank

[Ahmed786]

Dear all,
I am trying to copy data from one sheet and paste to other sheets but some time sheets are blank how can avoid copying data if sheets are blank
this code i am using
Windows("Executive.xlsm").Activate
Sheets("SALEH HAMDI GABANI").Select
Range("A9:H9").Select
Range(Selection, Selection.End(xlDown)).Select
Selection.Copy'
Windows("Referal Summary-Feb 23.xlsx").Activate

Range("A7").Select
Selection.PasteSpecial Paste:=xlPasteValues, Operation:=xlNone, SkipBlanks _
:=False, Transpose:=False
Is there any way to skip these bold lines if data to copy is blank?

 

[iggydarsa]

Have you tried:

Selection.PasteSpecial Paste:=xlPasteValues, Operation:=xlNone, SkipBlanks _
:=True, Transpose:=False