I don't know what to do to correct this vba code

[daniboymu]

my problem here is i dont know what i have to change on the vba code so I can get the information from ROW 5 and store at database, i uploaded two images showing what happens when i run the macro, I will be very grateful if someone could help me.

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

 

[davesexcel]

Rows(7) = Cells(Rows.Count, 5).End(xlUp).Row

Should this not be lastrow?

 

[daniboymu]

Should this not be lastrow?

hi Dave,, I need the information copied should be paste on the 7 ROW and not on the last row which is like 1200 rows down

 

[daniboymu]

hi Dave,, I need the information copied should be paste on the 7 ROW and not on the last row which is like 1200 rows down

the macro works like: it gets the information from ROW 5 which is RTD and copies and past on the ROW 7 to add to database, but when i click to update, the macro messes up everything at ROWS 1,2 AND 3 and then when the copied stuff is paste to ROW 7 MESS UP THE DATABASE, you can check that on the 2 prints that i uploaded

 

[VBasic2008]

my problem here is i dont know what i have to change on the vba code so I can get the information from ROW 5 and store at database, i uploaded two images showing what happens when i run the macro, I will be very grateful if someone could help me.

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

Will row 7 always be empty for a row to be pasted?

 

[ER_Neha]

the macro works like: it gets the information from ROW 5 which is RTD and copies and past on the ROW 7 to add to database, but when i click to update, the macro messes up everything at ROWS 1,2 AND 3 and then when the copied stuff is paste to ROW 7 MESS UP THE DATABASE, you can check that on the 2 prints that i uploaded

Hello dani please correct me if i am wrong-
your requirement is:
1. copy the entire row 5 from range a5:dg5
2. shift the row 8 data to row 9
3. paste the copied data of row 5 to row 8, (inserting a new row )

is this your requirement
?

 

[daniboymu]

Will row 7 always be empty for a row to be pasted?

yes the macro paste the information at ROW 7 and at the same time it creates a new ROW which becomes ROW 7 again and the Row with the paste information turns into ROW 8

 

[Fluff]

How about

Sub daniboy()
   Rows(7).Insert
   Range("A8:DG8").Value = Range("A5:DG5").Value
End Sub

 

[daniboymu]

Hello dani please correct me if i am wrong-
your requirement is:
1. copy the entire row 5 from range a5:dg5
2. shift the row 8 data to row 9
3. paste the copied data of row 5 to row 8, (inserting a new row )

is this your requirement
?

 

[Fluff]

Duplicate What is wrong with this Formula? doesnt copy the range determined

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).