Excel VBA to paste to new line after entry

[jfrancis]

I'm trying to make a sales quotation entry process simpler by using macros. This code below works, but it goes horizontally across the sheet instead of going vertically down the columns.

I have dynamic data (from vlookup) generated in cell G3 and I've made a button to copy this data from G3 and paste the value to column A1. As of now, upon clicking the assigned macro button, it pastes data from, G3 to H3, I3, J3, K3 and so on. I need the macro to copy-paste from G3 to the cell directly below, like A1, A2, A3, A4 and so on...

Sub paste2()
' paste2 Macro
    Dim lastCol As Long
' this finds the number of the last column
lastCol = Cells(3, Columns.Count).End(xlToLeft).Column


   Range("G3").Copy


Range("A1").Select
   Cells(3, lastCol + 1).PasteSpecial Paste:=xlPasteValues, Operation:=xlNone, SkipBlanks _
    :=False, Transpose:=False
End Sub

 

[MARK858]

Change the 1 to a 5

 

[daniboymu]

Change the 1 to a 5

Sorry to bother you to much Mark, could please show the VBA code please, tried here but i dont think i did the right thing about the row 7 selection, I am new to VBA.

 

[MARK858]

Rows(7).Value = Rows(5).Value

 

[daniboymu]

Rows(7).Value = Rows(5).Value

the formula is almost working but there is only one thing wrong, the code doesnt copy the range (A5:DG5) IT SIMPLY COPY RANDOM NUMBERS


Sub paste()
' paste2 Macro
Dim lastRow As Long
' this finds the number of the last row
Rows(7) = Cells(Rows.Count, 5).End(xlUp).Row
Range("A5:DG5").Copy
Cells(lastRow + 1, 1).PasteSpecial paste:=xlPasteValues, Operation:=xlNone, SkipBlanks _
:=False, Transpose:=False
Rows("7:7").Select
Selection.Insert Shift:=xlDown, CopyOrigin:=xlFormatFromLeftOrAbove
End Sub

 

[daniboymu]

the formula is almost working but there is only one thing wrong, the code doesnt copy the range (A5:DG5) IT SIMPLY COPY RANDOM NUMBERS


Sub paste()
' paste2 Macro
Dim lastRow As Long
' this finds the number of the last row
Rows(7) = Cells(Rows.Count, 5).End(xlUp).Row
Range("A5:DG5").Copy
Cells(lastRow + 1, 1).PasteSpecial paste:=xlPasteValues, Operation:=xlNone, SkipBlanks _
:=False, Transpose:=False
Rows("7:7").Select
Selection.Insert Shift:=xlDown, CopyOrigin:=xlFormatFromLeftOrAbove
End Sub

 

[Fluff]

Please do not post the same question multiple times. All clarifications, follow-ups, and bumps should be posted back to the original thread.
Per forum rules, posts of a duplicate nature will be locked or deleted (rule 12 here: Forum Rules).