How to paste data in column in first empty row?

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