Excel Forum

Code: Select all

Sub Macro1()
'
' Macro1 Macro
'

'
    Range("F4:F21").Select
    Selection.Copy
    Sheets("Sheet2").Select
    Range("A3").Select
    Selection.End(xlToRight).Offset(0, 1).Select
    Selection.PasteSpecial Paste:=xlPasteValues, Operation:=xlNone, SkipBlanks _
        :=False, Transpose:=False
    Sheets("Sheet1").Select
    Range("J10").Select
    Application.CutCopyMode = False

End Sub

Code: Select all

Sub Copy2_Every_page()
    Dim sourceWorksheet As Worksheet
    Dim targetWorksheet As Worksheet
    Dim ws As Worksheet
                                
            Set targetWorkbook = ThisWorkbook
            Application.ScreenUpdating = False
            Set sourceWorksheet = Sheets("1")
             sourceWorksheet.Cells(Rows.Count, "A").End(xlUp).Offset(-1, 0).Resize(, 10).Copy
             Application.ScreenUpdating = True
             Cells(Rows.Count, "A").End(xlUp).Offset(1, 0).Resize(, 1).PasteSpecial xlPasteValues
                     With Selection.Font
                            .Name = "TH SarabunPSK"
                            .Size = 11
                    End With
End Sub