Macro Create Array of Rows and Delete

[mkron]

Hello,

I am trying to create a macro where it gives the bold value to all of the non bold cells beneath it.
I also want to delete the bold rows but have not been successful

Here is the code for the cell values which works.

    For Each cCell In Range("A" & "2" & ":A" & spot)
        If cCell.Font.Bold = True Then
            boldcell = cCell.Value
        Else: cCell.Value = boldcell
        End If
    custrow = custrow + 1
    Next

I believe I can do something like this but with rows but I do not know how to create an array of rows in a loop.

    Dim X As Long, ColsToDelete As Variant
    ColsToDelete = Split("B C D E G H I J K L M N O P Q R S T V X Z AA AB AD AF AH AI AJ AL AM AN AP AR AT AV AX AY")
    Application.ScreenUpdating = False
    For X = UBound(ColsToDelete) To 0 Step -1
        Columns(ColsToDelete(X)).Delete
    Next

Any help will be much appreciated.
Thanks in advance!
-MK

 

[S_Wish]

find out using len() number of spaces (or firstly decrease number of cols and manually type how much spases are there) then redim array and use split:

redim colstodelete(0 to numberofspaces)
for i = 0 to NumberOfSpaces
colstodelete(i)= split(....)(i)
next i