Det löste sig efter lite sökande tillslut. Hitta ett script som letade efter ett specifikt värde och färgade cellen. Tog bort allt som hade med färg att göra och la in: Rng.HorizontalAlignment = xlRight under Do istället.

Tänkte skriva in länken till originalscriptet men lyckas inte hitta det igen tyvärr men tack någon.

Sub Höger()
Dim FirstAddress As String
Dim MySearch As Variant
Dim Rng As Range
Dim I As Long

'Fill in the search Value
MySearch = Array("15:00-22:30", "21:00-02:00")

'You can also use more values in the Array
'MySearch = Array("ron", "jelle", "judith")

'Fill in the Search range, for the whole sheet use
'you can use Sheets("Sheet1").Cells
With Range("B1:H200")

For I = LBound(MySearch) To UBound(MySearch)

'If you want to find a part of the rng.value then use xlPart
'if you use LookIn:=xlValues it will also work with a
'formula cell that evaluates to MySearch(I)
Set Rng = .Find(What:=MySearch(I), _
After:=.Cells(.Cells.Count), _
LookIn:=xlFormulas, _
LookAt:=xlWhole, _
SearchOrder:=xlByRows, _
SearchDirection:=xlNext, _
MatchCase:=False)

If Not Rng Is Nothing Then
FirstAddress = Rng.Address
Do
Rng.HorizontalAlignment = xlRight
Set Rng = .FindNext(Rng)
Loop While Not Rng Is Nothing And Rng.Address <> FirstAddress
End If
Next I
End With
End Sub