列内の最後の非空白セルを別の列の最後の非空白セルにコピーする

Question

列Cの最後の空でないセルを列Aの最後のエントリの後のセルにコピーします。例：

示されるようにYが列Cの5行目に終わりながら

Row Column A ... Column C 
1  X     Y 
2  X     Y 
3  Y     Y 
4       Y 
5       Y 

は、エントリは、Xは、列に2行目の終わりには、私はこの最後のエントリは、列

Iにコピーしたいです持っている：

Sub RangeSel() 
Dim ColA As Range 
Dim ColC As Range 


Set ColC = Cells("C" & Cells.Rows.Count).End(xlUp) 
Set ColA = Cells("A" & Cells.Rows.Count).End(xlUp) 

ColC.Copy (ColA) 
End Sub 

しかし、めの設定エラー

Answer 1

ワンライナー：

Cells(Columns("A").End(xldown).row+1,"A")=Columns("C").End(xlDown) 

少しきれいにし、より読み：

Dim contentOfLastCellOfColC As String 
contentOfLastCellOfColC = Columns("C").End(xlDown).Value 

Dim lastCellOfColA As Range 
Set lastCellOfColA = Columns("A").End(xlDown) 

Cells(lastCellOfColA.Row + 1, "A") = contentOfLastCellOfColC 

これが助けた場合、緑のチェックマークを私に報いるてください;）