New to VBA

[Some One Far Away]

Hello Community,

I am new to the VBA function and seeking help for some problem,

Range("A1").Select

Selection.End(xlDown).Select

Range("A465").Select

Selection.PasteSpecial Paste:=xlPasteValues, Operation:=xlNone, SkipBlanks _

:=False, Transpose:=False

ActiveWindow.Close

Application.CutCopyMode = False

Range("A1").Select


how can I make the new range an empty cell instead of the specified range bolded. in case of opening and pasting more that one file?

Thank you,

 

[dashiellx]

If I understand correctly, you are wanting to find the last row used and then go to the next blank row?

Dim lngRow As Long
Dim strRange as String
lngRow= Cells(Rows.Count, 1).End(xlUp).Row
lngRow = lngRow + 1

strRange = "A" & lngRow

However, I don't think you need to select the cell in order to paste

You should be able to do something like the following

Range(strRange).PasteSpecial Paste:=xlPasteValues

 

[Some One Far Away]

I appreciate it, Tank you for your support