if i=17 then
    Sheets("Члены").Cells(lastrow + 1, i) = Sheets("Анкета").Range("pole" & i) & " " & Sheets("Анкета").Range("pole" & i & "_1")
else
    Sheets("Члены").Cells(lastrow + 1, i) = Sheets("Анкета").Range("pole" & i)
end if

Dim adr$

Private Sub Worksheet_SelectionChange(ByVal Target As Range)
     Dim x&
     On Error Resume Next
     x = Len(Target.Name)
     If Err = 0 Then
         adr = Target.Address
     Else
         Range(adr).Select
     End If
End Sub

Option Explicit

Dim ind&

Private Sub Worksheet_SelectionChange(ByVal Target As Range)
      Dim ra As Range, i&
      If Target.Cells.Count > 1 Then Target(1).Select
      If ind = 0 Then ind = 1

      With CreateObject("scripting.dictionary")

          For i = 1 To 40
              If ra Is Nothing Then Set ra = Range("pole" & i) Else Set ra = Union(ra, Range("pole" & i))
              .Item(Range("pole" & i).Address) = i
          Next

          If Intersect(Target, ra) Is Nothing Then
              If Target.Row > ra.Areas.Item(ind).Row Or Target.Column > ra.Areas.Item(ind).Column Then
                  If ind = 40 Then Range(ra.Areas.Item(1).Address).Select Else Range(ra.Areas.Item(ind + 1).Address).Select
              Else
                  If ind = 1 Then Range(ra.Areas.Item(40).Address).Select Else Range(ra.Areas.Item(ind - 1).Address).Select
              End If
          Else
              ind = .Item(Target(1).Address)
          End If
      End With
End Sub