Como você não postou maiores detalhes e muito menos o anexo "modelo", fiz conforme me apraz.

Copie o código em algum módulo e depois chame-o conforme desejar.

Sub code()

Dim ws      As Worksheet
Dim wsheet  As Worksheet

Set wsheet = Sheets("nome da planilha à copiar")
Set ws = Sheets("nome da planilha à colar")

ws.Select

If ws.Cells.Select = Empty Then
MsgBox "Não existe dados para serem colados na planilha"
Exit Sub
Else
wsheet.Select
wsheet.Cells.Select
Cells.Copy
ws.Select
ws.Range("A1").Select
ActiveSheet.Paste
End If

End Sub

Espero ter ajudado.

Veja se ajuda:

Sub VerificaÁreaTransferência()
 If Application.ClipboardFormats(1) = -1 Then
  MsgBox "AT vazia"
 Else
  MsgBox "há conteúdo na AT"
 End If
End Sub