Sounds something like this -- see the attachment
Option Explicit
Sub Showsheet1()
Worksheets("Sheet2").Range("A10:M100").Clear
With Worksheets("Sheet1")
Range(.Cells(1, 1), .Cells(13, 5)).Copy ' copy output sheet column 1 to column 6 - Copying Avanir Data
End With
Application.ScreenUpdating = False
Range("A10").Select
Selection.PasteSpecial Paste:=xlPasteValues, Operation:=xlNone, SkipBlanks:=False, Transpose:=False
Selection.PasteSpecial Paste:=xlPasteFormats, Operation:=xlNone, SkipBlanks:=False, Transpose:=False
Range("A10").Select
Application.ScreenUpdating = True
End Sub
Sub Showsheet3()
Worksheets("Sheet2").Range("A10:M100").Clear
With Worksheets("Sheet3")
Range(.Cells(1, 1), .Cells(13, 11)).Copy ' copy output sheet column 1 to column 6 - Copying Avanir Data
End With
Application.ScreenUpdating = False
Range("A10").Select
Selection.PasteSpecial Paste:=xlPasteValues, Operation:=xlNone, SkipBlanks:=False, Transpose:=False
Selection.PasteSpecial Paste:=xlPasteFormats, Operation:=xlNone, SkipBlanks:=False, Transpose:=False
Range("A10").Select
Application.ScreenUpdating = True
End Sub