2 simple vb questions

[tuktuk]

I have 2 pretty easy ?'s but i can't figure em out.....

1). if you have a cell selected, how do you code it to move down 1 row.

Dim LastRowDB As Long
LastRowDB = Cells(Rows.Count, "D").End(xlUp).Row
Range("A" & LastRowDB).Select

'NEED HELP HERE.goal is to move the actice cell down ONE ROW
ActiveCell.MoveDown

2). if you have a range selected, how to you code it to paste.

'Copy CurrentDays Invoices
LastRowPO = Cells(Rows.Count, "D").End(xlUp).Row
Range("A2:M" & LastRowPO).Select
Selection.Copy

'Open the CompilingMaster tab (database) file
Workbooks("POQuantityTrackingReport.xls").Activate

'NEED HELP HERE.goal is to simple paste the Selection from above
Selection.Paste
'also tried
ActiveCell.Paste

 

[Oorang]

ActiveCell.Insert Shift:=xlDown
Selection.Copy Destination:=Range("A1")

 

[Jonmo1]

First off, most things can be done without selecting...but anyway..

1.
Range("A" & LastRowDB).Offset(1, 0).Select

2.
Range("A1").Select ' You first have to tell it where to paste
ActiveSheet.Paste

 

[tuktuk]

hmmmm....i guess the "ActiveCell.Insert Shift:=xlDown" command works but i do not want it to move the data within the cell........but i tput the active cell where i want it. ANY IDEAS?

still working on part 2

 

[tuktuk]

i thought i add the whole code to give a complete understanding

Sub UpdatePOQntyReducDB()
Dim lookupfilename As String
lookupfilename = "\\Sr\SharedDocs\CSPSharedFILES\POQuantityTrackingTool\POQuantityTrackingReport.xls"

Workbooks.Open lookupfilename
Workbooks("POQuantityTrackingReport.xls").Activate

'locate the cell in first column +1 cell past the previous days upload
'this preps for the next upload
Dim LastRowDB As Long
LastRowDB = Cells(Rows.Count, "D").End(xlUp).Row
Range("A" & LastRowDB).Select

'NEED HELP HERE.goal is to move the actice cell down ONE ROW
'ActiveCell.MoveDown
ActiveCell.Insert Shift:=xlDown

'Open the Current Days Invoices
Workbooks("POQntyReductionTool3.xls").Activate

Dim LastRowPO As Long

'Copy CurrentDays Invoices
LastRowPO = Cells(Rows.Count, "D").End(xlUp).Row
Range("A2:M" & LastRowPO).Select
Selection.Copy

'Open the CompilingMaster tab (database) file
Workbooks("POQuantityTrackingReport.xls").Activate

'NEED HELP HERE.goal is to simple paste the Selection from above
'Selection.Paste
'also tried
'ActiveCell.Paste
'this was the posting form MrExcel but is the incorrect location
'Selection.Copy Destination:=Range("A1")

Selection.Paste Destination:=Range("A1")


ActiveWorkbook.Save
ActiveWorkbook.Close

Workbooks("POQntyReductionTool3.xls").Activate
Range("A1").Select
MsgBox ("Today's invoices have been updated to the POQuantiyTrackingReport.")

End Sub

 

[Oorang]

The insert method works on any Range object. You can define a range object two ways:

'One Way:
ThisWorkBook.Worksheets("Sheet1").Range("A1").Insert Shift:=xlDown 
'Another Way
Dim rng as Excel.Range
set rng = Thisworkbook.Worksheets("Sheet1").Range("A1:A10")
rng.Insert Shift:=xlDown

 

[tuktuk]

cool thanks for the help

 

[Seti]

How about this?

Range("A" & LastRowDB + 1).Select