Удаление пробелов в батнике

 ChDir "D:"
        Workbooks.Open Filename:="D:\BL.cmd"
         For i = 2 To 100
 
         If Cells(i, 1) = Empty Then
          Rows(i).Delete
          End If
          i = i + 1
 
          Next i
 
          ActiveWorkbook.Save
 
          ActiveWorkbook.Close

Sub MyCmd()
    Dim f1 As Integer, f2 As Integer
    Dim fn1 As String, fn2 As String, s As String
    fn1 = "C:\1111\BL.cmd"     ' Путь к батнику
    fn2 = "C:\1111\temp.cmd"   ' tmp файл (будет создан программой)
    f1 = FreeFile
    Open fn1 For Input As #f1  ' Открываем файл для чтения
       f2 = FreeFile
       Open fn2 For Output As #f2 ' открываем временный файл для записи
       Do While Not EOF(f1)       ' крутим цикл до тех пор, пока не достигнут конец файла
          Line Input #f1, s       ' считываем очередною строку
          If Trim$(s) <> "" Then Print #f2, s 'если строка не пустая, то пишем ее во временный файл
       Loop
       Close #f2    ' закрываем файлы
    Close #f1       ' закрываем файлы
    Kill fn1        ' удаляем батник
    Name fn2 As fn1 ' переименовываем tmp файл
End Sub