Здравствуйте уважаемые знатоки.
Прошу помочь разобраться с проблемой.
Написала макрос, два раза сработал и теперь выдает ошибку Run-time error 9 Subscript out of range. Пересмотрела что могла, не могу понять, почему не находит массив или коллекцию (ещё пока не дошло до меня что означают эти понятия). Пожалуйста подскажите что не так. Мне нужно продолжить писать макрос (пытаюсь написать сама) а времени мало осталось (это для работы)

Sub List13_0()
Dim ipsheet As Worksheet '
Dim pnsheet As Worksheet '

Set ipsheet = ThisWorkbook.Sheets("Name")
Set pnsheet = ThisWorkbook.Sheets("Pasport")

lastrow = ipsheet.Cells(Rows.Count, 1).End(xlUp).Row

   For x = 1 To lastrow
       If ipsheet.Cells(x, 1) <> "" Then
          pnsheet.Range("B16") = ipsheet.Cells(x, 1)

       End If
   Next x
End Sub

Ошибку выдает на четвертой строке. Листы находятся в одной книге.

Спасибо.