Ok, I truly had no idea how to word that title so sorry about that. So I'm being tasked with creating a button that takes information from one workbook and overwrites information in another based on the Job No. value "C6" in the first workbook that corresponds to a Job No. in the second document. Think of it as a glorified UPDATE button. There will be fields in the second workbook with the same headers, but won't be in the same order just to further complicate things. I have very little understanding of macros so any help with this would be appreciated.

pic.jpg

My (poor) attempt at a code so far:

Private Sub UpdateButton_Click()
Dim DrawingNo As String
Dim DesignTracker As Workbook
Dim MasterTracker As Workbook
Dim i As Integer
Dim Rng As Range

Set DesignTracker = ThisWorkbook
Set MasterTracker = Workbooks.Open("C:\Users\dans\Desktop\Work In Progress\Strenco Design tracker")


DrawingNo = Range("C6").Value

For i = 1 To k
findvalue = ActiveSheet.Cells(i, 1).Value
With Workbooks("Strenco Design tracker.xlsm").Sheets("Tracker")
l = .Cells(Rows.Count, "a").End(xlUp).Row
Set j = .Range("A:A").Find(findvalue)
If Not j Is Nothing Then
.Cells(j.Row, j.Column).Offset(0, 1).Value = Workbooks("Design and Manufacture Process.xlsm").Sheets("Design Tracker").Cells(i, 2).Value
Else
.Cells(l, 1).Value = Workbooks("Design and Manufacture Process.xlsm").Sheets("Design Tracker").Cells(i, 1).Value
.Cells(l, 2).Value = Workbooks("Design and Manufacture Process.xlsm").Sheets("Design Tracker").Cells(i, 2).Value
End If
End With
Next i

DesignTracker.Sheets("Design Tracker").Range(DESIGNER, ORDERRECEIVEDDATE).Copy

MasterTracker.Sheets("Tracker").Range(Application.VLookup(DrawingNo, "A7:X23", [DESIGNER,ORDERRECEIVEDDATE])).PasteSpecial

End Sub