Am trying to correct syntax, also moved "Option Explicit" up

Still have the Compile Error problem, am reposting revised code


'   For , 140708, Rearrange address elements in shareholder register

Option Explicit
Public iRow As Integer
Public jColumn As Integer

Sub RearrangeAddresses()
    Dim i As Integer, StartRow As Integer
    Dim LastAddrElement As Integer
    
StartRow = Sheets("ReArrangedAddr").Range("B4").Value
i = StartRow
LastAddrElement = Cells(Rows.Count, 1).End(xlUp).Row
iRow = Sheets("ReArrangedAddr").Range("B6").Value
jColumn = 1

Do Until i > LastAddrElement
    If IsEmpty(Cells(i, 1)) Then
        i = i + 1
    Else
        Sheets("ReArrangedAddr").Range(Cells(iRow, jColumn)) = Cells(i, 1)
        i = i + 1
        If IsEmpty(Cells(i, 1)) Then
        i = i + 1
        End If
    Else
        jColumn = jColumn + 1
        Sheets("ReArrangedAddr").Range(Cells(iRow, jColumn)) = Cells(i, 1)
        i = i + 1
        
        If IsEmpty(Cells(i, 1)) Then
        i = i + 1
        jColumn = jColumn + 1
        Sheets("ReArrangedAddr").Range(Cells(iRow, jColumn)) = Cells(i, 1)
        End If
        
        iRow = iRow + 1
        jColumn = 1
 
    End If
Loop
    
End Sub