View Single Post
  #1   Report Post  
Posted to microsoft.public.excel.programming
Vince Vince is offline
external usenet poster
 
Posts: 102
Default 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