If your "Bold" cell is always the 2nd from last line then try...
Sub CopyIt()
Dim sht As Worksheet
Application.ScreenUpdating = False
Sheets("Original Tab").Cells(Rows.Count, "A").End(xlUp).Offset(-1).Resize(2, 3).Copy
For Each sht In ActiveWorkbook.Worksheets
If sht.Name <> "Original Tab" Then
If WorksheetFunction.CountA(sht.Range("A10:D10")) <> 0 Then sht.Cells(Rows.Count, "A").End(xlUp).Offset(2).PasteSpecial
End If
Next
With Application
.CutCopyMode = False
.ScreenUpdating = True
End With
End Sub
Bookmarks