Copy to Other Columns, Not in the Same Row
Option Explicit
Sub Test()
' Source
Const sfRow As Long = 2 ' First Row
Const slCol As String = "A" ' lookup
Const srCol As String = "K" ' result
Const sCrit1 As String = "cav. 1"
Const sCrit2 As String = "cav. 2"
' Destination
Const dfRow As Long = 2 ' First Row
Const dCol1 As String = "U"
Const dCol2 As String = "V"
Application.ScreenUpdating = False
Dim ws As Worksheet: Set ws = ActiveSheet ' improve
Dim slRow As Long: slRow = ws.Cells(ws.Rows.Count, slCol).End(xlUp).Row
Dim dr1 As Long: dr1 = dfRow
Dim dr2 As Long: dr2 = dfRow
Dim sr As Long
For sr = sfRow To slRow
Select Case LCase(CStr(ws.Cells(sr, slCol).Value))
Case sCrit1
ws.Cells(dr1, dCol1).Value = ws.Cells(sr, srCol).Value
dr1 = dr1 + 1
Case sCrit2
ws.Cells(dr2, dCol2).Value = ws.Cells(sr, srCol).Value
dr2 = dr2 + 1
End Select
Next sr
Application.ScreenUpdating = True
End Sub