Extraer ultima fila de Tablas en hojas de libro

Hola buenas tardes, tengo un libro de Excel donde tengo varias hojas y una tabla en cada una de ellas, diariamente se registran nuevos datos, necesito concentrar el valor de la ultima fila de cada hoja en la primera hoja del libro y si alguna tabla esta en blanco que me indique un texto con algo similar a "sin datos", el código que tengo es
Sub Macro1()
Sheets("Hoja1").Select
Range("d6").Select
Do While Not IsEmpty(ActiveCell)
ActiveCell.Offset(1, 0).Select
Loop
ActiveCell.Offset(-1, 0).Select
Selection.Copy
Sheets("Hoja1").Select
Range("d30").Select
ActiveSheet.Paste
Application.CutCopyMode = False
End Sub
Con esto eh logrado obtener el ultimo dato de cada tabla, más no encuentro como hacerle para cuando la tabla no tiene datos ademas de como hacerle para poner esta macro en la primera hoja y que busque en las demás :( Gracias por la ayuda