Dim x As Long
Dim y As Long
x = Sheets("Sheet1").Range("B" & Rows.Count).End(xlUp).Row
For y = 2 To x
If sheet3.Range("F3").Value = sheet1.Cells(y, "B").Value Then
sheet3.Range("B9").Value = sheet1.Cells(y, "B").Value
sheet3.Range("B10").Value = sheet1.Cells(y, "C").Value
sheet3.Range("B11").Value = sheet1.Cells(y, "D").Value
sheet3.Range("B12").Value = sheet1.Cells(y, "E").Value
sheet3.Range("B13").Value = sheet1.Cells(y, "F").Value
sheet3.Range("B14").Value = sheet1.Cells(y, "G").Value
sheet3.Range("B15").Value = sheet1.Cells(y, "H").Value
sheet3.Range("B16").Value = sheet1.Cells(y, "I").Value
End If
Next y
Dim y As Long
x = Sheets("Sheet1").Range("B" & Rows.Count).End(xlUp).Row
For y = 2 To x
If sheet3.Range("F3").Value = sheet1.Cells(y, "B").Value Then
sheet3.Range("B9").Value = sheet1.Cells(y, "B").Value
sheet3.Range("B10").Value = sheet1.Cells(y, "C").Value
sheet3.Range("B11").Value = sheet1.Cells(y, "D").Value
sheet3.Range("B12").Value = sheet1.Cells(y, "E").Value
sheet3.Range("B13").Value = sheet1.Cells(y, "F").Value
sheet3.Range("B14").Value = sheet1.Cells(y, "G").Value
sheet3.Range("B15").Value = sheet1.Cells(y, "H").Value
sheet3.Range("B16").Value = sheet1.Cells(y, "I").Value
End If
Next y