Why doesn't the macro copy all columns?

Question

Macros

There is such a macro, its ultimate task is to copy / paste the entire lines, if they match, from sheet to sheet, with all columns.
I set For i = 1 To 100, that is, it should take like 100 columns.
And it eventually stops up to the fortieth column somewhere ... the rest of the tail does not copy.

Worksheets(nl2).Activate
  lr2 = Cells(Rows.Count, nk2).End(xlUp).Row
  c = 1
  For i = 1 To 100
    If Cells(1, i) <> "" Then c = i
  Next i
  Worksheets(nl1).Activate
  lr = Cells(Rows.Count, nk1).End(xlUp).Row

  For i = 1 To lr
    s1 = LCase(Trim(Cells(i, nk1)))
    s1 = Replace(s1, "-", " ")
    kn = nkr
    For j = 1 To lr2
      s2 = LCase(Trim(Worksheets(nl2).Cells(j, nk2)))
      s2 = Replace(s2, "-", " ")
          
      If s1 = s2 Then
        Worksheets(nl2).Select
        Range(Cells(j, 1), Cells(j, c)).Select
        Application.CutCopyMode = False
        Selection.Copy
        Worksheets(nlr).Select
        Range(Cells(i, kn), Cells(i, kn)).Select
        ActiveSheet.Paste
        kn = kn + c
      End If
    Next j
  Next i
  Worksheets(nlr).Activate
  Application.ScreenUpdating = True
  Application.EnableEvents = True
  UserForm1.Hide

Answer 1

Based on:

And it eventually stops until the fortieth column somewhere ... the rest of the tail does not copy.

and a piece of code:
If Cells(1, i) <> "" Then c = i
and not knowing what is there on the sheet, I would venture to suggest that there is no value in the fortieth column in the first cell?