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
Bookmarks