Paste Value between sheets with starting range

[Peteor]

I would like to find the first empty cell on a worksheet after I define a starting point for the range. Here is where I am stuck:

Rng = Sheets("Sheet 1").Range("X:X")

For Each Cel In Rng
If Cel.Value >= 50 Then
Rng.Offset(, -21).Copy
'Paste to cell on different sheet starting with cell A46
Rng.Offset(,-5).Copy
'Paste to cell on different sheet starting with cell B46
Rng.Offset(,-4).Copy
'Paste to cell on different sheet starting with cell C46
Cel.Copy
'Paste to cell on different sheet starting with cell D46
Else
End If

Next Cel

Also, is there a better/faster way of doing this? is there maybe a way to condense it all into 1 copy and 1 paste?

 

[veyselemre]

Sub test()
    Set Rng = Sheets("Sheet 1").Range("X:X")
    If WorksheetFunction.CountA(Rng) = 0 Then GoTo safeExit
    For Each cel In Rng.SpecialCells(xlCellTypeConstants)
        If cel.Value >= 50 Then
            With Sheets("Sheet2")
                son = .Cells(Rows.Count, 1).End(3).Row + 1
                If son < 46 Then son = 46
                Union(cel.Offset(, -21), cel.Offset(, -5).Resize(, 2), cel).Copy .Cells(son, 1)
            End With
        End If
    Next cel
    Exit Sub
safeExit:
End Sub