Private Sub CommandButton3_Click()
Set lookup_rng = Range("AO22:AR20")
Application.ScreenUpdating = False
For Each Cell In lookup_rng
If Cell.Value = Range("J20" & "J22").Value Then
Range("J23:M24").Copy
Cell.Offset(1, 0).Select
Selection.PasteSpecial...