hi, I really need some help, im not good at programming, I am trying to make a program that could search for all "*" in column K and then delete them and make the cells shift left, also search for all "0" in N column and then highlight and replace them with the value (2.2 times the value in the same row in column P)...I am sending my code here, please help me with this..thank you so much.

With Worksheets(name & "-t").Range("K:K")
Set a = .Find(what:="*", LookIn:=xlValues, Lookat:=xlWhole)
If Not a Is Nothing Then
firstAddress = a.Address

Set a = .FindNext(a)
a.Interior.ColorIndex = 4
'Selection.Delete Shift:=xlToLeft
Loop While Not a Is Nothing And a.Address <> firstAddress
End If
End With

With Worksheets(name & "-t").Range("N:N")
Set c = .Find(0, LookIn:=xlValues, Lookat:=xlWhole)
If Not c Is Nothing Then
firstAddress = c.Address
c.Interior.ColorIndex = 6
Set c = .FindNext(c)
Loop While Not c Is Nothing And c.Address <> firstAddress
End If
End With
End Sub