Paste Vales in same row, different columns

[muzaffas]

Hello, I would like to paste 3 values in 3 columns A, B, and C in the last available row.

Filename = Dir(Path & "*.xls*")
DateTimeStamp = DateTime.Now
UserName = (Environ$("Username"))
'get last AVAILABLE cell to paste into
Set iLastCellS2 = s2.Cells(s2.Rows.Count, "A").End(xlUp).Offset(1, 0)

Assume my available row is row #5 . How do I paste Filename in A5, DateTimeStamp in B5, and UserName in C5?

Appreciate your help

 

[Fluff]

How about

iLastCellS2.Resize(, 3).Value = Array(Filename, DateTimeStamp, UserName)

 

[DanteAmor]

Try:

Filename = Dir(Path & "*.xls*")
DateTimeStamp = DateTime.Now
UserName = (Environ$("Username"))
s2.Cells(Rows.Count, "A").End(xlUp)(2).Resize(, 3).Value = Array(Filename, DateTimeStamp, UserName)

 

[muzaffas]

Great - Thanks for the quick response. It worked like a charm

 

[Fluff]

You're welcome & thanks for the feedback

 

[DanteAmor]

I'm glad to help you. Thanks for the feedback.