Problem With this macro table
Sub Macro1()
Dim wshO As Worksheet, rgO As Range '(O)rigin sheet and range Dim wshD As Worksheet, rgD As Range '(D)estination sheet and range Set wshO = ThisWorkbook.Worksheets("Murk 11A") 'origin sheet Set rgO = wshO.Range("A1:038") 'origin range Set wshD = ThisWorkbook.Worksheets("Murk 11A") 'dest sheet 'Find last cell on dest range using column A. '--- Copy Murk 11A!A1:O38 at end of data in "Murk 11A" --- Set wshO = ThisWorkbook.Worksheets("T+M") 'origin sheet Set rgO = wshO.Range("A1:w89") 'origin range Set wshD = ThisWorkbook.Worksheets("T+M") 'dest sheet 'Find last cell on dest range using column A. '--- Copy T+M!A1:W89 at end of data in "T+M" --- Set wshO = ThisWorkbook.Worksheets("Murk 12C") 'origin sheet Set rgO = wshO.Range("A1:Q41") 'origin range Set wshD = ThisWorkbook.Worksheets("Murk 12C") 'dest sheet 'Find last cell on dest range using column A. '--- Copy T+M!A1:Q41 at end of data in "Murk 12C" --- Set rgD = wshO.Columns(1).Cells(wshO.Columns(1).Cells.Count) 'last cell in col A: A65536. Set rgD = rgD.End(xlUp).Offset(1, 0) 'last cell of data in A then 1 row bellow. 'Now copy/paste rgO.Copy rgD 'Syntax: OriginRange.Copy DestinationRange '--- repeat above section --- End Sub |
All times are GMT +1. The time now is 10:26 PM. |
Powered by vBulletin® Copyright ©2000 - 2024, Jelsoft Enterprises Ltd.
ExcelBanter.com