Отладка макроса Excel

Question

Я получил документ Excel, который должен запускать макрос, но продолжаю получать следующую ошибку:

Ошибка времени выполнения '5': недопустимый вызов процедуры или аргумент

I ' Я пытаюсь следовать документации Microsoft, но не понимаю, что вызывает ошибку.

If IsDate(Left(Sheets("Unit RPAM").Cells(RowCount, 1), 10)) Then
            Cells(WriteRow, 6) = Left(Sheets("Unit RPAM").Cells(RowCount, 1), 10)
           
            RPAMDateString = Sheets("Unit RPAM").Cells(RowCount, 1)
            'RPAMDate Format: 2016/12/18 2017/12/17 B1 32 15 0 0 15 V 62 62 01/00/00
           
            StringIndex = 12 'Next non-space character
            For WriteCol = 7 To 16
                WriteString = ""    'Resets string to blank to keep collection of all non-space characters
                           
                Do                  'Loop adds each character to WriteString until encountering a space
                    WriteString = WriteString + Mid(RPAMDateString, StringIndex, 1)
                    StringIndex = StringIndex + 1
               Loop While Mid(RPAMDateString, StringIndex, 1) <> " " '<<<the problem
               
                Cells(WriteRow, WriteCol) = WriteString
                StringIndex = StringIndex + 1
            Next WriteCol
           
            Cells(WriteRow, 17) = Right(Sheets("Unit RPAM").Cells(RowCount, 1), 8)
            WriteRow = WriteRow + 1
        End If