transpose 배열전환시 리미트 에러

저처럼 공부하시는 분들께 도움되고자 글 남깁니다. 해결한 코드는 아래와 같습니다.

Sub array_time_test()

Dim i As Long, cnt As Long
Dim T
Dim db() As String, cp() As String

Range("A1").CurrentRegion.Clear
cnt = Range("D3")
T = Now()

For i = 0 To cnt
ReDim Preserve db(0, cnt)
db(0, i) = "홍길동" & i + 1
'db(i) = CStr(Int(Rnd() * 11))
Next i

ReDim Preserve cp(cnt, 0)
For i = 0 To cnt
cp(i, 0) = db(0, i)
Next i

'Range("A1").Resize(UBound(db, 1), 1) = Application.Transpose(db)
Range("A1").Resize(UBound(db, 2), 1) = cp

T = Now() - T
MsgBox Format(T, "hh:mm:ss")

Erase db

End Sub