Excel VBA：最後に使用された列のセルの値を変更する方法？

Question

私はVBAを初めて使い、最後に使用した列（月単位で変更）を探してその列の2番目の行セルを "Apple"に変更しようとしています。最後に使用された列の値は行5から始まりますが、行2を変更する必要があります。私が出ているこのコードは、私はそれが欠陥だ理解：

Sub NameCell() 
.Cells(5, Columns.Count).End(xlToLeft).Column.Select 
.FormulaR3C1 = "Apple" 
End Sub 

Answer 1

Sub NameCell() 
With ActiveSheet  
    .Cells(2,.Cells(5, .Columns.Count).End(xlToLeft).Column).Value = "Apple" 
End With 
End Sub