VBA(Excel)のコード解読求む！！

Question

下記のVBAのコードの解析をお願いします。

sub concat()

call concatcells01

call concatcells02

end sub

---------------------------------------------------------------------

sub concatcells01()

dim i as integer

for i = 1 to range("c3")                                      

cells(i,5) = cells(i,1) ＆ "','" ＆ cells(i,2)　　　　

next i

dim cellvalue as string

cellvalue = cells(range("C3"),5)

cells(range("C3"),5).value = left(cellvalue,len(cellvalue) - 2)

end sub

----------------------------------------------------------------------

sub concatcells02()

dim i as integer

dim result as string

for i = 1 to range("c3")

result= result ＆ cells(i,5)

next i

cells(1,6) = "'" ＆ result

end sub