Form Input dengan Tombol Simpan (VBA) untuk peternakan dan pertanian

Sub SimpanData()
    Dim wf As Worksheet, ws As Worksheet, wm As Worksheet, r As Long, hrg As Variant, kat As Variant
    Set wf = ThisWorkbook.Sheets("Dashboard")
    Set ws = ThisWorkbook.Sheets("Data")
    Set wm = ThisWorkbook.Sheets("Master")
    If Trim(wf.Range("J3").Value) = "" Or Val(wf.Range("J4").Value) <= 0 Then
        MsgBox "Isi item dan qty dengan benar.", vbExclamation
        Exit Sub
    End If
    hrg = Application.VLookup(wf.Range("J3").Value, wm.Range("A:C"), 2, False)
    kat = Application.VLookup(wf.Range("J3").Value, wm.Range("A:C"), 3, False)
    If IsError(hrg) Then MsgBox "Item tidak ada di Master.", vbCritical: Exit Sub
    r = ws.Cells(ws.Rows.Count, "A").End(xlUp).Row + 1
    ws.Cells(r, 1).Value = wf.Range("J2").Value
    ws.Cells(r, 2).Value = wf.Range("J3").Value
    ws.Cells(r, 3).Value = kat
    ws.Cells(r, 4).Value = wf.Range("J4").Value
    ws.Cells(r, 5).Value = hrg
    ws.Cells(r, 6).Value = wf.Range("J5").Value
    ws.Cells(r, 7).Formula = "=D" & r & "*E" & r
    MsgBox "Data tersimpan di baris " & r, vbInformation
End Sub