copy and paste cells after finding last row

[bthyaabd]

Hi,

with the code below i am trying to find a specific cell, offset it and paste from cell c11 and c13.
i've set the coloumn AE as the counter column (this part of the code works fine it finds the last row and add 1 to value of the previous.

but the paste part of the code keeps on pasting the values from c11 and c13 in row 45,

ie. the last row of AE will be row 3 but the pasting will still be on row 45

any help please.



Private Sub editprice_Click()


Dim rngFindValue As Range
Dim rngSearch As Range
Dim rngFind As Range
Dim lastrow As Long


On Error Resume Next
Application.ScreenUpdating = False


Set rngFind = ActiveSheet.Range("AD22:ZE22") 'search in this range of cells
Set rngSearch = rngFind.Cells(rngFind.Cells.Count) 'get the number of cells in this column
Set rngFindValue = rngFind.Find(Range("c9").Value, rngSearch, xlValues) 'search for the value that in cell c9

'================================================================================
' finding the last row in column AE

With ActiveSheet
lastrow = .Cells(.Rows.Count, "AE").End(xlUp).Row
End With
'========================================================

'making the no. column automated increasing no.

If IsNumeric(Range("AE" & lastrow)) = False Then

ActiveSheet.Cells(lastrow + 1, "AE").Value = ActiveSheet.Cells(lastrow + 1, "AE").Row - 23

Else

ActiveSheet.Cells(lastrow + 1, "AE").Value = ActiveSheet.Cells(lastrow, "AE").Value + 1

End If
'============================================================================================

ActiveSheet.Range("c13").Copy
rngFindValue.Offset(lastrow, 0).PasteSpecial Paste:=xlValues, Operation:=xlNone, SkipBlanks:=False, Transpose:=False

ActiveSheet.Range("c11").Copy
rngFindValue.Offset(lastrow, 1).PasteSpecial Paste:=xlValues, Operation:=xlNone, SkipBlanks:=False, Transpose:=False

'===================================================================================================================



End Sub

 

[My Aswer Is This]

Try this:

Sub Copy_To_Lastrow()
'Modified 11/18/2022  11:55:20 PM  EST
Application.ScreenUpdating = False
Dim Lastrow As Long
Lastrow = Cells(Rows.Count, "AE").End(xlUp) + 1
Range("C11").Copy Cells(Lastrow, "AE")
Lastrow = Cells(Rows.Count, "AE").End(xlUp).Row + 1
Range("C13").Copy Cells(Lastrow, "AE")
Application.ScreenUpdating = True
End Sub

 

[bthyaabd]

Try this:

Sub Copy_To_Lastrow()
'Modified 11/18/2022  11:55:20 PM  EST
Application.ScreenUpdating = False
Dim Lastrow As Long
Lastrow = Cells(Rows.Count, "AE").End(xlUp) + 1
Range("C11").Copy Cells(Lastrow, "AE")
Lastrow = Cells(Rows.Count, "AE").End(xlUp).Row + 1
Range("C13").Copy Cells(Lastrow, "AE")
Application.ScreenUpdating = True
End Sub

i need to find a value of cell c9 first and relatively to the position i need to offset and paste

 

[My Aswer Is This]

I'm sorry I'm just not following what your ultimate goal is:
If you would just say I want to copy this range and paste in in this column first empty cell, I may be able to help

You said:
i need to find a value of cell c9 first and relatively to the position i need to offset and paste
What does all this have to do with it?
Lastrow = .Cells(.Rows.Count, "AE").End(xlUp).Row