Sub test()
Sheets("1PLATE").Range("P25").Copy
Sheets("1PLATE").Range("C4:E11").Find("*", SearchDirection:=xlPrevious, SearchOrder:=xlByColumns, LookIn:=xlValues).Offset(1).PasteSpecial Paste:=xlPasteValues, Operation:=xlNone, SkipBlanks _
:=False, Transpose:=False
End Sub
I am...