Snasui Excel Forum

Code: Select all

Sub SPasteDetail()
    Dim woShare As Workbook
    Dim formBook As Workbook
    Dim woShareOpen As Boolean
    Dim ra As Range
    Set formBook = ThisWorkbook
    Set woShare = Workbooks("Paid_BookShare.xlsx")
       Set ra = woShare.Sheets("Sheet1").Range("A" & Rows.Count).End(xlUp).Offset(1, 0)
       With formBook.Sheets("TemBilling")
            .Range("AA2:BB2").Resize(.Range("BC1")).Copy
            woShare.Sheets("Sheet1").Range("A" & Rows.Count).End(xlUp) _
            .Offset(1, 0).PasteSpecial xlPasteValues
        End With
End Sub

Code: Select all

Sub MainCode()
Call SPasteDetail
Call BeenArPay
End Sub