Change to different color

[Holyfix]

Hey, I have currently made a macro to add 3 columns before the last column with data, but I need the last column out of these 3 added and also first row to be always different colour (it doesn't have to be random, just a range of 10 colors repeating). This is what it looks like:

Sub ADD()
    Dim LastCol As Long
    Dim Lastrow As Integer
     
    'COPY
    Columns("A:C").Copy
    
    'COLUMNS
    LastCol = ActiveSheet.Cells.Find(What:="*", SearchDirection:=xlPrevious, SearchOrder:=xlByColumns).Column
    Columns(LastCol).Insert
    
    'DELETE DATA
    Columns(LastCol).Range("A3:B3" & Lastrow).ClearContents
    
    'CHANGE OF COLOR
    Columns(LastCol).Range("A1:C1").Interior.ColorIndex = 4
    Columns(LastCol).Offset(, 2).Interior.ColorIndex = 4
    
End Sub

Thank you very much for your help !!

 

[Fluff]

How about

Sub Holyfix()
    Dim LastCol As Long
    Dim Lastrow As Integer
    Dim Clr As Long
    
    'COPY
    Columns("A:C").Copy
    
    'COLUMNS
    LastCol = ActiveSheet.Cells.Find(What:="*", SearchDirection:=xlPrevious, SearchOrder:=xlByColumns).Column
    Columns(LastCol).Insert
    
    'DELETE DATA
    Columns(LastCol).Range("A3:B3" & Lastrow).ClearContents
    
    'CHANGE OF COLOR
    Clr = Columns(LastCol).Offset(, -1).Interior.ColorIndex
    If Clr = 13 Or Clr < 0 Then Clr = 4 Else Clr = Clr + 1
    Columns(LastCol).Range("A1:C1").Interior.ColorIndex = Clr
    Columns(LastCol).Offset(, 2).Interior.ColorIndex = Clr
    
End Sub