Sub tt()
Set one = ThisWorkbook.Sheets( 1 )
Set two = ThisWorkbook.Sheets( 2 )
one.Rows( 1 ).Copy two.Rows( 1 )
End Sub

Sub ttt()
ThisWorkbook.Sheets( 1 ).Rows( 1 ).Copy ThisWorkbook.Sheets( 2 ).Rows( 1 )
End Sub

    Set blank_cell = Cells(Range("a1").SpecialCells(xlCellTypeLastCell).Row +  1 ,  1 )
    [C1].Copy blank_cell

Sub ZVI()
  Dim EmptyCell As Range
  Const StartCell = "F1"
  If Len(Range(StartCell)) =  0  Then
    Set EmptyCell = Range(StartCell)
  Else
    Set EmptyCell = Range(StartCell).End(xlDown).Offset( 1 )
  End If
 ' [a12:d12].Copy EmptyCell
 EmptyCell.Select
  MsgBox EmptyCell.Address( 0 ,  0 ), , "The first empty cell"
End Sub