Transfer important data from a messy rawdata

Seems I got it, so far I have this running code working:
Filters MAC and date, will post once I got the correct for the different workbook.

Sub run()
    Dim i As Long, ws As Worksheet, mc, dt, sysdt
    Set ws = Sheets("INPUT")
    sysdt = WorksheetFunction.Text(ws.Range("K1").Value, "d") & WorksheetFunction.Text(ws.Range("K1").Value, "mm") & WorksheetFunction.Text(ws.Range("K1").Value, "yy")
    
    Sheets("OUTPUT").Select
    
    With Sheets("OUTPUT")
        For i = 1 To ws.Cells(Rows.Count, 1).End(xlUp).Row
            mc = ws.Cells(i, 1).Value
            dt = ws.Cells(i, 3).Value
            Select Case True
                Case mc Like "*MAC*" And dt Like sysdt 'take these only
                    .Cells(.Rows.Count, 1).End(xlUp).Offset(1).Resize(, 9).Value = ws.Cells(i, 1).Resize(, 9).Value
                
                
                Case Else
                    'do nothing
            End Select
        Next
    End With
    Set ws = Nothing
End Sub

Final working code from one workbook to another:

Sub TransferData7()
    Dim i As Long, mc, dt
	Dim wsOUT, wsIN As Worksheet
	Dim wbTemplate, wbInput As Workbook

    Set wbTemplate = Workbooks.Open(TemplateFile)
    Set wbInput = Workbooks.Open(InputFile)	

    Set wsOUT = wbTemplate.Sheets("OUTPUT")
    Set wsIN = wbInput.Sheets("INPUT")

    wbInput.Activate
    wsIN .Select
    
    sysdt = WorksheetFunction.Text(wsIN .Range("K1").value, "d") & WorksheetFunction.Text(wsIN .Range("K1").value, "mm") & WorksheetFunction.Text(wsIN .Range("K1").value, "yy")
    
    With wsOUT
        For i = 1 To wsIN .Cells(Rows.Count, 1).End(xlUp).Row
            mc = wsIN .Cells(i, 1).value
            dt = wsIN .Cells(i, 3).value
            Select Case True
                Case mc Like "*MAC*" And dt Like sysdt 'take these only
                    .Cells(.Rows.Count, 1).End(xlUp).Offset(1).Resize(, 9).value = wsIN .Cells(i, 1).Resize(, 9).value
                
                Case Else
                    'do nothing
            End Select
        Next
    End With
    Set wsIN = Nothing
End Sub