Bom dia!!

Seria algo assim?

Sub AleVBA_17741()
   Dim lngLastRow As Long, lngRow As Long
   Dim strColumn As String
   
   strColumn = "K"
   With ActiveSheet
      lngLastRow = .Cells(.Rows.Count, strColumn).End(xlUp).Row
      For lngRow = 2 To lngLastRow
         If IsDate(.Cells(lngRow, strColumn).Value) Then
            .Rows(lngRow).Copy Plan2.Range("A1") 'Copia para a guia Plan2
         End If
      Next lngRow
   End With
End Sub

Att

Alexandre,
Fiz um pequeno ajuste e deu erro 424, "O objeto é obrigatório". Veja troquei o nome da quia Plan2 para VARIAVEIS,

Dim lngLastRow As Long, lngRow As Long
Dim strColumn As String

strColumn = "K"
With ActiveSheet
lngLastRow = .Cells(.Rows.Count, strColumn).End(xlUp).Row
For lngRow = 2 To lngLastRow
If IsDate(.Cells(lngRow, strColumn).Value) Then
.Rows(lngRow).Copy VARIAVEIS.Range("A1") 'Copia para a guia VARIAVEIS
End If
Next lngRow
End With
End Sub

Como sou novo em vba, Poderia me ajudar ?

Boa tarde!!

Troque essa linha:

 .Rows(lngRow).Copy Plan2.Range("A1") 'Copia para a guia Plan2

para:

 .Rows(lngRow).Copy Worksheets("VARIAVEIS").Range("A1") 'Copia para a guia Plan2

Att

Uma pequena alteração na rotina do Alexandre e veja se é isto :

Sub AleVBA_17741()
       Dim lngLastRow As Long, lngRow As Long
       Dim strColumn As String
       
       strColumn = "K"
       With ActiveSheet
          lngLastRow = .Cells(.Rows.Count, strColumn).End(xlUp).Row
          
          For lngRow = 2 To lngLastRow
             If IsDate(.Cells(lngLastRow, strColumn).Value) Then
                .Rows(lngRow).Copy Sheets("VARIAVEIS").Range("A1") 'Copia para a guia VARIAVEIS
                Exit Sub 'Sai da rotina apos condição verdadeira
             End If
             lngLastRow = lngLastRow - 1
          Next lngRow
       End With
    End Sub