If then statement with multiple conditions to place values from one sheet into another sheet
Sub Values() Dim wb As Workbook Dim Data, Bun, Bun_Dept, Master As Worksheet Dim lastrow, lrow As Long Dim i As Integer Dim j As Integer Set Data = Worksheets(“Master”) Set Bun = Worksheets(“Bun_Dept”) lastrow = Data.Cells(Rows.Count, “A”).End(xlUp).Row For i = 5 To lastrow k = Data.Cells(i, 1).Value Next i MsgBox (i) lrow = Bun.Cells(Rows.Count, […]