Option Explicit
Sub Simple_For()
Dim Startrow As Byte
Dim LastRow As Long
Dim i As Long
Application.ScreenUpdating = False
Columns("H:H").Select
Selection.Replace What:="Kgs", Replacement:="", LookAt:=xlPart, _
SearchOrder:=xlByRows, MatchCase:=False, SearchFormat:=False, _
ReplaceFormat:=False, FormulaVersion:=xlReplaceFormula2
Selection.Replace What:="", Replacement:="0", LookAt:=xlPart, _
SearchOrder:=xlByRows, MatchCase:=False, SearchFormat:=False, _
ReplaceFormat:=False, FormulaVersion:=xlReplaceFormula2
Selection.Replace What:="ltrs", Replacement:="", LookAt:=xlPart, _
SearchOrder:=xlByRows, MatchCase:=False, SearchFormat:=False, _
ReplaceFormat:=False, FormulaVersion:=xlReplaceFormula2
Selection.Replace What:="nos", Replacement:="", LookAt:=xlPart, _
SearchOrder:=xlByRows, MatchCase:=False, SearchFormat:=False, _
ReplaceFormat:=False, FormulaVersion:=xlReplaceFormula2
Range("B11").CurrentRegion.Select
Selection.Replace What:="", Replacement:="""""", LookAt:=xlPart, _
SearchOrder:=xlByRows, MatchCase:=False, SearchFormat:=False, _
ReplaceFormat:=False, FormulaVersion:=xlReplaceFormula2
Selection.Replace What:="""""", Replacement:="", LookAt:=xlPart, _
SearchOrder:=xlByRows, MatchCase:=False, SearchFormat:=False, _
ReplaceFormat:=False, FormulaVersion:=xlReplaceFormula2
Startrow = 8
Dim myValue As Date
LastRow = Range("B8").End(xlDown).Row
For i = Startrow To LastRow
myValue = Range("A" & i).Value
If Range("A" & i).Value = "" Then
Range("A" & i).Offset(-1, 0).Copy Range("A" & i)
Range("A" & i).NumberFormat = "dd-mmm-yy"
End If
Range("A" & i).NumberFormat = "dd-mmm-yy"
Next i
Application.ScreenUpdating = True
End Sub