Percorrer cada valor na coluna A da Folha1 e usar esse valor para filtrar as 4 planilhas restantes deve fornecer os resultados que você está procurando.
Sub remove_from_2_to_5()
Dim var As Variant, w As Long, rw As Long
With Sheets(1)
For rw = 2 To .Cells(Rows.Count, 1).End(xlUp).Row
If Not IsEmpty(.Cells(rw, 1)) Then
var = .Cells(rw, 1).Value
For w = 2 To 5
With Sheets(w).Cells(1, 1).CurrentRegion
.AutoFilter
.AutoFilter field:=1, Criteria1:=var
With .Offset(1, 0).Resize(.Rows.Count, .Columns.Count)
If CBool(Application.Subtotal(103, .Columns(1))) Then
.SpecialCells(xlCellTypeVisible).EntireRow.Delete
End If
End With
.AutoFilter
End With
Next w
End If
Next rw
End With
End Sub
Quando o primeiro loop For / Next entra na coluna A da Sheet1, ele registra o valor encontrado. Isso é usado em cada uma das planilhas restantes como os critérios em uma operação .AutoFilter
. Se houver células mostrando após o filtro ter sido aplicado, as linhas serão excluídas.