Sub DeleteEmptyCellsInRangeK()
Dim rng As Range
Set rng = Range("K1:K700") 'Change the range as per your requirement.
'Filter the empty cells in the range.
rng.SpecialCells(xlCellTypeBlanks).Delete Shift:=xlUp
End Sub
Sub DeleteEmptyCellsInRangeK()
Dim rng As Range
Set rng = Range("K1:K700") 'Change the range as per your requirement.
'Filter the empty cells in the range.
rng.SpecialCells(xlCellTypeBlanks).Delete Shift:=xlUp
End Sub
"Please keep your comments respectful and on-topic."
"Your email address will not be published."
"HTML tags are not allowed in comments."
"Spam comments will be deleted."