flytte en indhold en linje op hvis cellen ikke er tom

der er 2 muligheder, efter hvad du ønsker

' sletter tomme celler i kolunnen og flytter op, andre data følger ikke med
Range("b5:b200").SpecialCells(xlCellTypeBlanks).Delete Shift:=(xlUp)

'Sletter rækker, hvor der er tomme celler i B kolonnen
Range("b5:b200").SpecialCells(xlCellTypeBlanks).EntireRow.Delete Shift:=(xlUp)

det skal være noget i stilen med løsning 1, da jeg ikke kan slette linjer. Der står tal i alle linjer, bare ikke nødvendigvis i kol B.

hvis jeg laver en sub som denne:

sub test()
Range("b5:b200").SpecialCells(xlCellTypeBlanks).Delete Shift:=(xlUp)
end sub

Så kommer der tal i alle celler, også dem som er tomme før jeg forsøger at flytte.

Hvis der findes en løsning med
for each cell...

Vil det være optimal.
Det kan jeg nemlig bruge i en anden hensende. :-)

når du bruger denne
Range("b5:b200").SpecialCells(xlCellTypeBlanks).Delete Shift:=(xlUp)

Vil alle tomme celler i kolonne B blive slettet og de fyldte i samme kolonne flyttes op, men det betyder også, at der ikke er sammenhæng i data, hvis de står på samme linje.

du skriver "flytter værdier fra celler i kolonne B en linje op"
det gør du ved at slette B4, så rykker alle celler i B kolonnen

Ok, jeg havde vist ikke lige læst din første tekst.
Nu har jeg forstået hvad den gør. Men det er desværre ikke helt det jeg søger.

Det jeg skal bruge skal gøre sådan:
Hvis en celle i området b5:b200 ikke er tom, så skal den flyttes en linje op, og kun EN. f.eks fra b45 til b44
Herefter skal makroen gå videre og først gøre noget igen når den kommer til en celle der ikke er tom.
Her skal den igen flytte den enkelte celle 1 linje op osv.

Sub flytEnLinjeOp()
Dim cell As Range
For Each cell In Range("b5:b200")
If cell <> "" Then cell.Cut cell.Offset(-1, 0)
Next
End Sub

JEP!

Der var den.
Beklager hvis jeg ikke fik forklaret mig ordentligt i første omgang.

Mange tak for hjælpen.