Button to copy range to new worksheet

Sub transposeData()
    
    Dim rngValues As Range: Set rngValues = Sheets("Sheet1").Range("a1:f6")
    Dim ValueCell As Range
    For Each ValueCell In rngValues
        Sheets("Sheet2").Cells(Rows.Count, ValueCell.Column).End(xlUp).Offset(1, 0).Value = ValueCell.Value
    Next ValueCell
    Range("A1:F6").Select
    Selection.ClearContents
    Range("A1").Select
End Sub