End Macro if Range is Blank

[bepedicino]

Hello,

I am hoping to get some VBA help to end a macro either before or after the copying if the selected range is blank.

Here is the current VBA I have in please.

Sub CopyRange ()
    Range("A2").Select
    
  Range("A2:G2", Range("A2").End(xlDown).End(xlToRight)).Select
Selection.Copy

Application.CutCopyMode = False
    Selection.Copy
    Windows("Trade Compliance Application.xlsb").Activate
    Selection.PasteSpecial Paste:=xlPasteValues, Operation:=xlNone, SkipBlanks _
        :=False, Transpose:=False
    
End Sub

Thank you

 

[mrshl9898]

Try:

Sub CopyRange()
    
If WorksheetFunction.CountA(Range("A2:G2", Range("A2").End(xlDown).End(xlToRight))) = 0 Then
    Exit Sub
Else
    Range("A2:G2", Range("A2").End(xlDown).End(xlToRight)).Copy
    Windows("Trade Compliance Application.xlsb").Activate
    Selection.PasteSpecial Paste:=xlPasteValues
End If
    
End Sub