Sub MoveColours()

Worksheets("Sheet1").Range("a1").CurrentRegion.Copy

Worksheets.Add.Name = "Output"

Worksheets("Output").Range("a1").PasteSpecial xlPasteAll

Range("a1").AutoFilter Field:=1, Operator:=xlFilterNoFill

Application.DisplayAlerts = False
    Range("a1").CurrentRegion.Offset(1, 0).SpecialCells(xlCellTypeVisible).Delete
Application.DisplayAlerts = True

ActiveSheet.AutoFilterMode = False

End Sub