Error in using VBA Macro with Apply Colors and Line Numbers

[intellitechdataservices]

The code is below: See the attachment also. Its overwriting the first column instead of adding a new column before column A

Sub InsertLineNumbersAndApplyColors()
Dim ws As Worksheet
Dim cell As Range
Dim rowNum As Long
Dim colorIndex As Long

' Define an array of light colors
Dim lightColors As Variant
lightColors = Array(vbWhite, vbYellow, vbCyan, vbMagenta, vbGreen, vbRed, vbBlue, RGB(255, 255, 204), RGB(204, 255, 204), RGB(204, 204, 255))

' Loop through each worksheet in the workbook
For Each ws In ThisWorkbook.Worksheets
' Reset the row number
rowNum = 1

' Loop through each cell in the first column of the worksheet
For Each cell In ws.Range(ws.Cells(1, 1), ws.Cells(ws.Rows.Count, 1).End(xlUp))
' Insert the text "Line number X" in the cell
cell.Value = "Line number " & rowNum
' Apply a light color to the cell
colorIndex = (rowNum - 1) Mod UBound(lightColors) + 1
cell.Interior.Color = lightColors(colorIndex)
' Increment the row number
rowNum = rowNum + 1
Next cell
Next ws
End Sub

 

[offthelip]

Please use the code formatting when you post code it makes it easier to read. ( Click the VBA button and then select paste)
Try this additional line:

For Each ws In ThisWorkbook.Worksheets
    Range("a1:a1").EntireColumn.Insert ' just add this line after your for loop

 

[intellitechdataservices]

Can u write the whole code with this additional code?

 

[intellitechdataservices]

Sub InsertLineNumberColumn()
Dim ws As Worksheet
Dim lastRow As Long
Dim i As Long

For Each ws In ThisWorkbook.Worksheets
' Find the last used row in column A
lastRow = ws.Cells(ws.Rows.Count, "A").End(xlUp).Row

' Insert a new column at the beginning
ws.Columns("A:A").Insert Shift:=xlToRight

' Add text and colors to the cells in the new column
For i = 1 To lastRow
ws.Cells(i, 1).Value = "Line Number " & i
' Apply light colors to each cell
Select Case i Mod 5
Case 1
ws.Cells(i, 1).Interior.Color = RGB(230, 230, 250) ' Lavender
Case 2
ws.Cells(i, 1).Interior.Color = RGB(240, 255, 240) ' Honeydew
Case 3
ws.Cells(i, 1).Interior.Color = RGB(255, 228, 225) ' BlanchedAlmond
Case 4
ws.Cells(i, 1).Interior.Color = RGB(245, 245, 220) ' Beige
Case 0
ws.Cells(i, 1).Interior.Color = RGB(240, 255, 255) ' Azure
End Select
Next i
Next ws
End Sub