Excel Macro

Option Explicit

Sub MoveData()
Dim sMasterSht As String
Dim lMasterStartRow As Long
Dim sCopyStartCol As String
Dim sCopyEndCol As String
Dim iLookAtCol As Integer

Dim sExceptSht As String

Dim sPasteStartCol As String
Dim lPasteStartRow As Long

Dim Sheet As Variant
Dim lLastRow As Long
Dim bVisible As Boolean

    sMasterSht = "PMO Report"
    sExceptSht = "TM"
    
    iLookAtCol = 8 ' filter on this column on mastersheet
    lMasterStartRow = 17
    
    sCopyStartCol = "D"
    sCopyEndCol = "H"

    sPasteStartCol = "A"
    lPasteStartRow = 11
    
    Sheets(sMasterSht).Select
        
    For Each Sheet In Sheets
        
        If Sheet.Name = sMasterSht Then GoTo Next_Sheet
        If Sheet.Name = sExceptSht Then GoTo Next_Sheet
        
        Sheets(sMasterSht).Select
        Range(Cells(lMasterStartRow, "A"), Cells(Rows.Count, Columns.Count)).AutoFilter field:=iLookAtCol, Criteria1:="=" & Sheet.Name
        
        lLastRow = Cells(Rows.Count, iLookAtCol).End(xlUp).Row
        If lLastRow <= lMasterStartRow Then GoTo Next_Sheet
        
        Range(Cells(lMasterStartRow + 1, sCopyStartCol), Cells(lLastRow, sCopyEndCol)).Copy
        
        bVisible = True
        If Not (Sheet.Visible) Then
            Sheet.Visible = True
            bVisible = False
        End If
        
        Sheet.Select
        
        lLastRow = Cells(Rows.Count, sPasteStartCol).End(xlUp).Row
        If lLastRow < lPasteStartRow Then lLastRow = lPasteStartRow
        
        Cells(lLastRow, sPasteStartCol).PasteSpecial xlPasteValues
        Application.CutCopyMode = False
        Cells(lLastRow, sPasteStartCol).Select
        
        If Not bVisible Then Sheet.Visible = False
                
Next_Sheet:
    
    Next Sheet
    
    Sheets(sMasterSht).Select
    ActiveSheet.AutoFilterMode = False
    
End Sub