If Sheets("hour report").Range("U1") = 1 Then
    For i = 1 To k3
        For n = 1 To k1
            Sheets("Sheet1").ListObjects("Table1").Range.AutoFilter Field:=1, _
                Criteria1:=Sheets("hour report").Range("B" & i + 1)
            Sheets("Sheet1").ListObjects("Table1").Range.AutoFilter Field:=2, _
                Criteria1:=Sheets("hour report").Cells(1, n + 2)

            On Error Resume Next
            Range("Table1[f1]").SpecialCells(xlCellTypeVisible).Copy
            Sheets("hour report").Activate
            Cells(i + 1, n + 2).Select
            ActiveSheet.Paste
        Next n
    Next i
End If