copy paste macro

[orsm6]

hi all - i need to copy 5 different cells from a sheet in one workbook, then paste them into another sheet/workbook and various columns.... is there an elegant way to combine these two codes somehow??

the value is pasted into the next available row in the designated column.

Sheets("PCR Form").Range("J9").Copy
With Sheets("Register")
    lst = .Range("b" & Rows.Count).End(xlUp).Row + 1
    .Range("b" & lst).PasteSpecial xlPasteValues
End With

ThisWorkbook.Worksheets("Action Point Entry").Cells(m, 8).Copy
tempbook.Worksheets("Varun").Cells(x, 2).PasteSpecial Paste:=xlPasteValues, Operation:= _
        xlNone, SkipBlanks:=False, Transpose:=False

 

[orsm6]

i think i fluked this ..... or maybe starting to learn a few things. i went wit this code

ThisWorkbook.Worksheets("Section 1 Auth to Modify").Cells(1, 9).Copy
With tempbook.Worksheets("Register")
lst = .Range("b" & Rows.Count).End(xlUp).Row + 1
.Range("b" & lst).PasteSpecial xlPasteValues
End With