I can't quite believe I am posting this but I have managed to sort this out myself .

Code:
Dim oSum1 As Double
    Range(Range("A5"), Range("A5").End(xlDown)).SpecialCells(xlVisible).Select
    For Each oCell In Selection
    If InStr(1, oCell.Text, "Hong Kong") Then
     oSum1 = oSum1 + oCell.Offset(0, 12).Value
    End If
    Next oCell