VBA Loop

Hej

Vedrørende dette spm: http://www.eksperten.dk/spm/981055 (se blandt andet fileksempel)

Jeg har tænkt at jeg blot kan nøjes med at indsætte overskrifter i manglende kolonner - hvorfor jeg forsøger mig med denne lille makro:

Sub Macro1()
'
' Macro1 Macro
'
Dim TomCelle As Integer

'
    ActiveCell.Cells.Select
    Selection.UnMerge
    ActiveCell.Cells.EntireColumn.AutoFit
    Do Until Application.WorksheetFunction.Match("", Range("A22:AT22")) = IsNA
    TomCelle = Application.WorksheetFunction.Match("", Range("A22:AT22"), 22)
    Range(TomCelle).Select
    ActiveCell.FormulaR1C1 = "Tom"
    Loop
End Sub

Tanken er at jeg først fjerner alle merges, derefter laver kolonnerne i passende bredde og så indsætter "tom" som overskrift i kolonner uden overskrift (i linje 22). Den forstår dog ikke min until formel. Er det måske IsNA den hoster over?
Den skal jo loope indtil der ikke er en tom overskrift i A22:AT22