Good Afternoon Everyone!

I am having some troubles with this piece of code for exporting data from one worksheet to another. I have an activeXbutton that exports data from one sheet and store it in another. My goal was to be able to export 10-20 rows of data for analyzing but this macro isn't exactly doing that. It will export two rows of data and then keep overwriting the second row. Some help on what I am doing wrong would be greatly appreciated.

Private Sub CommandButton1_Click()

Dim Material As String, Types As String, Diameter As String, Flow As String, Regime As String, TotalLossesm As String, TotalLossespsi As String

Worksheets("Hydraulics").Select
Material = Range("C10")
Types = Range("C11")
Diameter = Range("C12")
Flow = Range("C15")
Regime = Range("I9")
TotalLossesm = Range("I15")
TotalLossespsi = Range("I17")
Worksheets("Results").Select
Worksheets("Results").Range("A10").Select
If Worksheets("Results").Range("A10").Offset(1, 0) <> "" Then
Worksheets("Results").Range("A10").End(xlDown).Select
End If
ActiveCell.Offset(1, 0).Select
ActiveCell.Value = Material
ActiveCell.Offset(0, 1).Select
ActiveCell.Value = Types
ActiveCell.Offset(0, 1).Select
ActiveCell.Value = Diameter
ActiveCell.Offset(0, 1).Select
ActiveCell.Value = Flow
ActiveCell.Offset(0, 1).Select
ActiveCell.Value = Regime
ActiveCell.Offset(0, 1).Select
ActiveCell.Value = TotalLossesm
ActiveCell.Offset(0, 1).Select
ActiveCell.Value = TotalLossespsi
Worksheets("Hydraulics").Select
Worksheets("Hydraulics").Range("C10").Select


End Sub

Thanks,
njr