Удалить пустые ячейки

Sub dsdsds()
  i = 1
  For Each r In Range("C1:C100")
      If IsDate(r) = False And IsEmpty(r) = True Then Range(i & ":" & i).Delete
  i = i + 1
  Next
End Sub