Требуется подсказать в макросе

Sub KLIKO410()
 
  Sheets("KLIKO").Select
    
Cells.Select
Selection.ClearContents
 
 
Range("A1").Select
 
 
    
Dim i As Integer
i = 3
j = 2
 
Sheets("410").Select
 
 
tm1 = Range("K1").Value
tm2 = Range("L1").Value
tm3 = Range("M1").Value
 
 
 
Range("'Kliko'!A1").Value = "<F410_R1>"
 
 
While Range("B" + CStr(i)).Value <> "END"
 
 
 
    str1 = tm2 + CStr(Range("A" + CStr(i)).Value) + tm3 + CStr(Range("B" + CStr(i)).Value) + tm3 + CStr(Range("C" + CStr(i)).Value) + tm3 + CStr(Range("D" + CStr(i)).Value) + tm3 + CStr(Range("E" + CStr(i)).Value) + tm3 + CStr(Range("F" + CStr(i)).Value) + tm2
    
    
    Range("'Kliko'!A" + CStr(j)).Value = str1 + str2 + str3
            
            
            
            j = j + 1
            i = i + 1
   
  
Wend
 
 
Sheets("KLIKO").Select
 
 
    If Dir("c:\KLIKO\temp\", vbDirectory) = "" Then MkDir "c:\KLIKO\temp\"
    Open "c:\KLIKO\temp\f251_kliko.txt" For Output As #1
    For Each rr In ActiveSheet.UsedRange.Rows
        n = rr.Cells.Count
        For i = 1 To n - 1
            Print #1, ConvertString(rr7.Cells(i).Text, 1251, 866); vbTab;
        Next
        Print #1, ConvertString(rr.Cells(n), 1251, 866)
    Next
Close #1
 
 
End Sub

Dim exc()    'массив с номерами невыгружаемых строк
Redim exc (1 to n) 'где n-количество ненужных строк
Dim flag as boolean

Sheets("KLIKO").Select
 
 
    If Dir("c:\KLIKO\temp\", vbDirectory) = "" Then MkDir "c:\KLIKO\temp\"
    Open "c:\KLIKO\temp\f251_kliko.txt" For Output As #1
    For Each rr In ActiveSheet.UsedRange.Rows
        n = rr.Cells.Count
        For i = 1 To n - 1
              flag = false
              For j = 1 to ubound(exc, 2)
                   if i = exc(j) then
                         flag = true
                   end if
              next
              If flag = false then 
                       Print #1, ConvertString(rr.Cells(i).Text, 1251, 866); vbTab;
              End if
        Next
        flag = false
        for j = 1 ubound(exc, 2)
               if n = exc(j) then
                      flag = true
               end if
        next 
        if flag = false then
             Print #1, ConvertString(rr.Cells(n), 1251, 866)
        end if
    Next
Close #1

dim exc(277,278)

Dim exc(0 to 277, 0 to 278)

Dim exc()

lastrow = Cells(Rows.count, 1).End(xlUp).row   'Ищем последнюю ячейку в столбце. 1 - номер столбца в котором ищется последняя ячейка
Redim exc(1 to lastrow)
For i = 1 to lastrow 
     exc(i) = Cells(1, i)
Next