[Spirosgr]

Καλημέρα
Έστω, η στήλη Ε, που έχει κελιά χρωματιστά.
Ο κώδικας:

Sub Macro1()
    Columns(5).Delete Shift:=xlToLeft
End Sub

διαγράφει όλη την στήλη ή
ο κώδικας:

Sub Macro2()
    With Columns(5).Interior
        .Pattern = xlNone
        .TintAndShade = 0
        .PatternTintAndShade = 0
    End With
    Columns(5).ClearContents
End Sub

καθαρίζει την στήλη.

Επέλεξε ένα εκ των δύο, που εξυπηρετεί καλύτερα.

Κάνεις paste στην Ε, τα κελιά, που έχεις αντιγράψει, από το δίκτυο.

Ο κώδικας (σύνδεσε ένα κουμπί):

Sub Macro3()
    Dim c As Range, rng As Range
    Set rng = Range("e1:e1000")
    Application.ScreenUpdating = False
    rng.ClearContents
    For Each c In rng
        Select Case c.Interior.Color
        Case vbRed
            c.Value = 1
        Case vbYellow
            c.Value = 2
        Case vbGreen
            c.Value = 3
        Case Else
            c.Value = vbNullString
        End Select
    Next
End Sub

υπολογίζει τις αξίες των κελιών, με βάση το χρώμα.

Σημειώσεις:
1
Δεν εξετάζονται, περεταίρω λεπτομέρειες, που αφορούν την δομή του φύλλου,
ή αυτοματισμοί, σε συμβάντα φύλλου.
2
Καθαρά χρώματα Office 2003