Macro to Paste Transposed but not with formatting

[AFidytek]

Hi all

This is the code I am using (which is working well) but I cannot seem to get it to not copy the formatting from the input sheet. Can someone please assist.

Private Sub CommandButton1_Click()

  Application.ScreenUpdating = False
  Dim copySheet As Worksheet
  Dim pasteSheet As Worksheet


  Set copySheet = Worksheets("Capture")
  Set pasteSheet = Worksheets("Database")


  copySheet.Range("D3:D46").Copy
 pasteSheet.Cells(Rows.Count, 1).End(xlUp).Offset(1, 0).PasteSpecial Transpose:=True
  Application.CutCopyMode = True
  Application.ScreenUpdating = True
Range("D3:D46").ClearContents
MsgBox Prompt:="Your client has been succesfully saved to the database", Title:="Record Updated"
End Sub

Thanks

 

[My Aswer Is This]

Try something like this:

pasteSheet.Cells(Rows.Count, 1).End(xlUp).Offset(1, 0).PasteSpecial xlPasteValues, Transpose:=True

 

[AFidytek]

Thanks it works perfectly

 

[My Aswer Is This]

Glad I was able to help you.
Come back here to Mr. Excel next time you need additional assistance.

Thanks it works perfectly