Snasui Excel Forum

Code: Select all

Private Sub CommandButton1_Click()
ActiveWorkbook.Save
Range("C5:C14").Select
Selection.Copy
Sheets("Sheet2").Select
ActiveSheet.Range("A1048576").End(xlUp).Offset(1, 0).Select
Selection.PasteSpecial xlPasteValues, Transpose:=True

Sheets("Sheet1").Select
[B2:M15].ClearContents
End Sub

Code: Select all

Private Sub CommandButton1_Click()
    ActiveWorkbook.Save
    Range("C5:C13").Select
    Selection.Copy
    Sheets("Sheet2").Select
    ActiveSheet.Range("A1048576").End(xlUp).Offset(1, 0).Select
    Selection.PasteSpecial xlPasteValues, Transpose:=True
    Sheets("Sheet1").Select
    Range("C14").Copy
    Sheets("Sheet2").Select
    ActiveSheet.Range("A1048576").End(xlUp).Offset(0, 10).Select
    Selection.PasteSpecial xlPasteValues
    Sheets("Sheet1").Select
    [B2:M15].ClearContents
End Sub