VBA - editing code to paste without table formatting

yits05

Board Regular
Joined
Jul 17, 2020
Messages
52
Office Version
  1. 2016
Platform
  1. Windows
Hello,

I am new to VBA and would appreciate any help!

I have the below code, which does a good job of copying a range and pasting it in the furthest down blank cell in a column. However, I would like it to paste it without any formatting (including table formatting). Appreciate any help.

VBA Code:
Sheets("Data2").Select
    On Error Resume Next
    Set mylastcell = Cells(1, 1).SpecialCells(xlLastCell)
    mylastcelladd = Cells(mylastcell.Row, mylastcell.Column).Address
    myrange = "A1:" & mylastcelladd
    Range(myrange).Select
    Range(Selection, Selection.End(xlDown)).Copy Destination:=Sheets("Sheet1").Range("P" & Rows.Count).End(xlUp).Offset(1)
 

Excel Facts

Select a hidden cell
Somehide hide payroll data in column G? Press F5. Type G1. Enter. Look in formula bar while you arrow down through G.

Lian

New Member
Joined
Jan 26, 2021
Messages
34
Office Version
  1. 365
  2. 2019
  3. 2016
Platform
  1. Windows
Hello,

I am new to VBA and would appreciate any help!

I have the below code, which does a good job of copying a range and pasting it in the furthest down blank cell in a column. However, I would like it to paste it without any formatting (including table formatting). Appreciate any help.

VBA Code:
Sheets("Data2").Select
    On Error Resume Next
    Set mylastcell = Cells(1, 1).SpecialCells(xlLastCell)
    mylastcelladd = Cells(mylastcell.Row, mylastcell.Column).Address
    myrange = "A1:" & mylastcelladd
    Range(myrange).Select
    Range(Selection, Selection.End(xlDown)).Copy Destination:=Sheets("Sheet1").Range("P" & Rows.Count).End(xlUp).Offset(1)
VBA Code:
Sheets("Data2").Select
    On Error Resume Next
    Set mylastcell = Cells(1, 1).SpecialCells(xlLastCell)
    mylastcelladd = Cells(mylastcell.Row, mylastcell.Column).Address

    myrange = "A1:" & mylastcelladd
    
    Range(myrange).Copy
    Sheets("Sheet1").Range("P" & Rows.Count).End(xlUp).Offset(1).PasteSpecial Paste:=xlPasteValues
    Application.CutCopyMode = False
 

Watch MrExcel Video

Forum statistics

Threads
1,129,932
Messages
5,639,067
Members
417,067
Latest member
rohitbabshet

We've detected that you are using an adblocker.

We have a great community of people providing Excel help here, but the hosting costs are enormous. You can help keep this site running by allowing ads on MrExcel.com.
Allow Ads at MrExcel

Which adblocker are you using?

Disable AdBlock

Follow these easy steps to disable AdBlock

1)Click on the icon in the browser’s toolbar.
2)Click on the icon in the browser’s toolbar.
2)Click on the "Pause on this site" option.
Go back

Disable AdBlock Plus

Follow these easy steps to disable AdBlock Plus

1)Click on the icon in the browser’s toolbar.
2)Click on the toggle to disable it for "mrexcel.com".
Go back

Disable uBlock Origin

Follow these easy steps to disable uBlock Origin

1)Click on the icon in the browser’s toolbar.
2)Click on the "Power" button.
3)Click on the "Refresh" button.
Go back

Disable uBlock

Follow these easy steps to disable uBlock

1)Click on the icon in the browser’s toolbar.
2)Click on the "Power" button.
3)Click on the "Refresh" button.
Go back
Top