Copy Data from one sheet to another

Hi There, long time away from the forum.

I want a macro that takes the data in blue (PM, Region, comments etc) in sheet1 and transfer it to sheet2 to the respective field (ie comments under comments)

There maybe multiple data and do not want the data to ovewrwrite. So everytime the upload button is clicked it uploads the information from sheet 1 (the drop down menu (deactive) and the comments) and trsnfer the data to sheet2 I have a code that copies data in a row, but unable to manipulate it to pick up data that is not in a row as per this example.

Can anyone help me? I have uploaded a workbook example

Kind regards

Sub Upload_Comments_Click()

Set ws1 = Worksheets("Sheet1")
Set ws2 = Worksheets("Sheet2")

OpenRow = ws2.Cells(Rows.Count, "A").End(xlUp).Row + 1

ws2.Cells(OpenRow, 1).Value = ws1.Cells(2, 4).Value
ws2.Cells(OpenRow, 2).Value = ws1.Cells(3, 4).Value
ws2.Cells(OpenRow, 3).Value = ws1.Cells(5, 4).Value
ws2.Cells(OpenRow, 4).Value = ws1.Cells(7, 3).Value
ws2.Cells(OpenRow, 5).Value = ws1.Cells(3, 6).Value
ws2.Cells(OpenRow, 7).Value = ws1.Cells(3, 10).Value
End Sub