don't copy filtered data if no active cells

[Admin]

Hi

Try

Sub Jan()
' ******************* January KPI ***************************************
    
    Dim wksRawData  As Worksheet
    Dim wksDest     As Worksheet
    Dim rngRawData  As Range
    Dim lngCount    As Long
    
    Dim Jan As Date
    Dim Feb As Date
    Dim rng As Range
    
    
    Set wksRawData = Worksheets("Raw Data")
    Set wksDest = Worksheets("HKG to Kotka")
    
    With wksRawData
        If .AutoFilterMode Then .AutoFilterMode = False 'remove autofilter
        Set rngRawData = .Range("a5:w" & .Range("k" & .Rows.Count).End(xlUp).Row) 'set the range
    End With
    
    Jan = #1/1/2012#
    Feb = #1/2/2012#
    
    With Application.WorksheetFunction
        'count whether jan dates are exist
        lngCount = .CountIf(wksRawData.Columns(11), ">=" & Jan) - .CountIf(wksRawData.Columns(11), ">" & Feb)
    End With
    
    'if exist
    If lngCount Then
        With rngRawData
            .AutoFilter field:=11, Criteria1:=">=" & Jan, Operator:=xlAnd, _
                    Criteria2:="<" & Feb, Operator:=xlAnd
            .AutoFilter field:=14, Criteria1:="Hong Kong"
            .AutoFilter field:=15, Criteria1:="Kotka"
            Set rng = .Cells(1).Offset(1).Resize(.Rows.Count - 1, .Columns.Count).SpecialCells(12)
        End With
        wksDest.Range("A11:W40").ClearContents
        rng.Copy wksDest.Range("A11")
        wksRawData.ShowAllData
    End If
    
End Sub