Sub tata()
Dim i As Long, j As Long, l As Long
Dim oDat, oDbl
oDat = Sheets("A").[C1].CurrentRegion.Value
l = 1
ReDim oDbl(1 To UBound(oDat, 2), 1 To l)
For i = 2 To UBound(oDat, 1)
If oDat(i, 3) = "1430" Then
ReDim Preserve oDbl(1 To UBound(oDat, 2), 1 To l)
For j = 1 To UBound(oDat, 2)
oDbl(j, l) = oDat(i, j)
Next j
l = l + 1
End If
Next i
If Not IsEmpty(oDbl(3, 1)) Then
Sheets("A").Range(Cells(UBound(oDat, 1) + 1, 1), Cells(UBound(oDat, 1) + UBound(oDbl, 2), UBound(oDat, 2))).Value = Application.Transpose(oDbl)
End If
End Sub