CODEWITHSUNDEEP
excelvba
M.Hoefelmayr
M.Hoefelmayr

Reputation: 21

Appending data from one sheet to another Excel VBA

I know a bit of VBA, however I got a problem, I am trying to write a code that will copy all data from 1 sheet, append/paste it into the next blank cell in sheet 2 and then remove the data from sheet 1. I am using below code, but I get cell values replaced by the word TRUE.

Sub Instal_Sum_Paste()

  ActiveWorkbook.Sheets("Vehicle working").Select

  Dim N As Long
  N = Cells(6, 2).End(xlDown).Row
  Set DT = Range("b6:G" & N)
  DT.Copy

  ActiveWorkbook.Sheets("Installation Summary").Select
  lMaxRows = Cells(Rows.Count, "B").End(xlUp).Row
  Range("B" & lMaxRows + 1).Select
  ActiveCell.Value = DT.PasteSpecial(xlPasteValues)

  ActiveWorkbook.Sheets("Vehicle working").Select
  DT.Select
  Selection.ClearContents

  MsgBox "done", vbOKOnly, "done"

End Sub

Upvotes: 1

Views: 13170

Answers (1)

M.Hoefelmayr
M.Hoefelmayr

Reputation: 21

I managed to find an answer, its silly I know: 

 Sub Instal_Sum_Paste()

  ActiveWorkbook.Sheets("Vehicle working").Select

  Dim N As Long
  N = Cells(6, 2).End(xlDown).Row
  Set DT = Range("b6:G" & N)
  DT.Select
  Selection.Copy

  ActiveWorkbook.Sheets("Installation Summary").Select
  lMaxRows = Cells(Rows.Count, "B").End(xlUp).Row
  Range("B" & lMaxRows + 1).Select
  Selection.PasteSpecial Paste:=xlPasteValues, Operation:=xlNone

  ActiveWorkbook.Sheets("Vehicle working").Select
  DT.Select
  Selection.ClearContents

  MsgBox "done", vbOKOnly, "done"

End Sub

Upvotes: 1

Related Questions