VBA code for pressing "down arrow" in recording macro

[Dotti]

I'm recording a copy/paste macro, using 'end' 'down arrow' to get to bottom
of list and then press the down arrow. When I press the down arrow, I just
want the code to appear for pressing the down arrow, but instead it puts a
range command with a specific cell location, like A1046. What can I replace
this statement with, so I can just go down one cell, so it can start the
copy/paste? Here's the code:
(I want to keep this code, but just change the "Range("A1041").Select" part
to reflect pressing the down arrow key, instead of actually giving me a
"cell" location.)

Can anyone help? thx Dotti


Application.Goto Reference:="DataOtherEquip"
Selection.Copy
Sheets("SQL Equip").Select
Range("A2").Select
Selection.End(xlDown).Select
' note for Dotti - change this next statement to reflect 'down' one cell
instead of a range

Range("A1041").Select
ActiveSheet.Paste
Range("A1").Select
Sheets("Other Equip").Select
Range("A1").Select
Application.CutCopyMode = False
Sheets("SQL Equip").Select
End Sub

 

[Dave Peterson]

Selection.End(xlDown).offset(1,0).select

And delete that next statement.

You could also drop the .select's:

Dim RngToCopy as range
dim DestCell as Range

set rngtocopy = worksheets("whateversheetname").range("DataOtherEquip")

with workSheets("SQL Equip")
set destcell = .range("a2").end(xldown).offset(1,0)
end with

Rngtocopy.copy _
destination:=destcell

Application.CutCopyMode = False

 

[Dotti]

Thanks, but that didn't work. Did I do something wrong? Here's the code:

I think we're close; any more suggestions??? Thanks for your help! Dotti


Application.Goto Reference:="DataOtherEquip"
Selection.Copy
Sheets("SQL Equip").Select
Range("A2").Select
Selection.End(xlDown).Select
' note for Dotti - change this next statement to reflect 'down' one cell
instead of a range

' Range("A1041").Select
Selection.End(xlDown).Offset(1, 0).Select
ActiveSheet.Paste
Range("A1").Select
Sheets("Other Equip").Select
Range("A1").Select
Application.CutCopyMode = False
Sheets("SQL Equip").Select
End Sub

 

[Dave Peterson]

Application.Goto Reference:="DataOtherEquip"
Selection.Copy
Sheets("SQL Equip").Select
Range("A2").Select
Selection.End(xlDown).Offset(1, 0).Select
ActiveSheet.Paste
Range("A1").Select
Sheets("Other Equip").Select
Range("A1").Select
Application.CutCopyMode = False
Sheets("SQL Equip").Select
End Sub

Did you think about trying the other suggestion. Lots of times, it's easier to
see what's happening if there aren't .select's in the code.