Paste Values into Next Blank Row

[BMil8]

Hello, I have the following code which takes the cells in B2:AZ2 and pastes them into the next available row (based on column B). I can't figure out how to only paste values/format and NOT the formulas. Any thoughts?

Dim last_row As Long
last_row = Cells(Rows.Count, "B").End(xlUp).Row
Range("B2:AZ2").Copy Destination:=Cells(last_row + 1, "B")

There were similar questions asked on here before but I can't seem to find the right solution.

Bonus points if it first looks to see if the value of B2 exists in the range below in column B (say B9:B50) and if it does, a pop up asks if I'd like to override that existing line (or delete existing and then add the new one)

 

[James006]

Hi,
You can adapt the simple rule:

range("B2").Value=Range("A2").Value

 

[MARK858]

For the first part

    Dim last_row As Long
    last_row = Cells(Rows.Count, "B").End(xlUp).Row

    Range("B2:AZ2").Copy
    With Cells(last_row + 1, "B")
        .PasteSpecial xlValues
        .PasteSpecial xlFormats
    End With

    Application.CutCopyMode = False