Opgelost Lege cellen verwijderen met behoud van formules

[HSV]

Kan ook volgens het voorbeeld.

Sub hsv()
On Error Resume Next
 With Sheets("Ist").Range("a6").CurrentRegion
    sv = .Columns(1).Formula
  .Columns(2).SpecialCells(4).Delete xlUp
  .Columns(1) = sv
 End With
End Sub

 

[Robert Smidt]

Sorry voor de late reactie.

De laatste versie werkt ook heel goed en houdt de tweede rij zelfs gecentreerd wat ook zeker waardevol is. Heel hartelijk dank. Ik ga nu onderzoeken of de code ook vrij eenvoudig inpasbaar is wanneer de kolommen zich op een andere positie bevinden.