Managed to figure it out by counting the number of visible rows:
With ThisWorkbook.Sheets("Master")
.AutoFilterMode = False
.Range("A2:Z2").AutoFilter Field:=refColumn, Criteria1:=itm
.Range("A2:Z2").AutoFilter Field:=26, Criteria1:="Verify if the user is happy with the service and that everything works ok"
' If there are more than 1 rows then copy user id, first name last name
Set VisibleRng = ThisWorkbook.Sheets("Master").AutoFilter.Range
RowCount = VisibleRng.Columns(1).SpecialCells(xlCellTypeVisible).Count - 1
If RowCount > 1 Then
.Range("A3:C" & LastRow).Copy
ActiveWorkbook.Sheets("Sheet1").Range("A" & NextHeaderRow + 4).PasteSpecial xlPasteValues
' Copy and paste email
.Range("E3:E" & LastRow).Copy
ActiveWorkbook.Sheets("Sheet1").Range("D" & NextHeaderRow + 4).PasteSpecial xlPasteValues
End If
End With