I have a column that is a result of A copy/paste code of values only, no formulas. The code below is design to remove cells that are blank (""), it works but is slow as it goes through its process. Any suggestions on how to speed this up?
Thanks in advance!
Code:
'COPYPASTE AS VALUES
Application.ScreenUpdating = False
Sheets("Main").Select
Range("B20:B5000").Copy
Range("C20").PasteSpecial Paste:=xlValues
Application.CutCopyMode = False
Application.ScreenUpdating = True
'REMOVE BLANK SPACES
For i = 20 To 300
If Cells(i, 3).Value = "" Then
Cells(i, 3).Delete shift:=xlUp
End If
Next i
Thanks in advance!