Copy & paste dynamic ranges underneath last row in other sheet & downfill date; code not working!

[I_need_help]

hey there,

I started using macro's very recently, so I am below beginners level. I have a problem where I'm struggling with for days now.

I made a code to copy 2 dynamic ranges (columns B and D, from a pivot on sheet "FIFO list") and paste them underneath the last row with data into the sheet "FIFO tracker" in columns B and C. I handle them as 2 copy/paste operations in my code.
In column A of sheet "FIFO tracker" I want to add a date (just the date of today, I am running the file daily) and to downfill this date until the lastrow with data which I copied earlier. Unfortunately this line of my code doesn't do anything.
Now the 2 ranges are copied when I run the macro, but the 2nd paste operation pastes the data underneath the last row of the 1st paste operation. It should be pasted next to each other.

I hope someone could point me out where my mistakes are? all help is much appreciated... !

Sub Test_FIFO_Tracker()

Dim copySheet As Worksheet
Dim pasteSheet As Worksheet
Dim LastRow As Long

  Set copySheet = Worksheets("FIFO list")
  Set pasteSheet = Worksheets("FIFO tracker")
 
   LastRow = copySheet.Cells(Rows.Count, 3).End(xlUp).Row

    copySheet.Range("B11:B" & LastRow).Copy
    pasteSheet.Cells(Rows.Count, 1).End(xlUp).Offset(1, 1).PasteSpecial xlPasteValuesAndNumberFormats
    
    copySheet.Range("D11:K" & LastRow).Copy
    pasteSheet.Cells(Rows.Count, 1).End(xlUp).Offset(1, 2).PasteSpecial xlPasteValuesAndNumberFormats
    
    pasteSheet.Cells(Rows.Count, 1).End(xlUp).Offset(1, 0).Value = Format(Date, "DD-MM-YYYY").FillDown

End Sub

 

[Fluff13]

How about

Sub Test_FIFO_Tracker()
'
' Test_FIFO_Tracker Macro
'
 Application.ScreenUpdating = False
  Dim copySheet As Worksheet
  Dim pasteSheet As Worksheet
  Dim LastRow As Long, Nxtrw As Long

  Set copySheet = Worksheets("FIFO list")
  Set pasteSheet = Worksheets("FIFO tracker")
 
   LastRow = copySheet.Cells(Rows.Count, 3).End(xlUp).Row
   Nxtrw = pasteSheet.Range("A" & Rows.Count).End(xlUp).Offset(1).Row
   copySheet.Range("B11:B" & LastRow).Copy
   pasteSheet.Range("B" & Nxtrw).PasteSpecial xlPasteValuesAndNumberFormats
  
   copySheet.Range("D11:K" & LastRow).Copy
   pasteSheet.Range("C" & Nxtrw).PasteSpecial xlPasteValuesAndNumberFormats
  
   pasteSheet.Range("A" & Nxtrw).Resize(LastRow - 10).Value = Format(Date, "DD-MM-YYYY")

   Application.CutCopyMode = False
   Application.ScreenUpdating = True


End Sub

 

[chirayu]

Sub Test_FIFO_Tracker()
Test_FIFO_Tracker Macro
Application.ScreenUpdating = False
Dim copySheet As Worksheet
Dim pasteSheet As Worksheet
Dim LastRow As Long
Dim PstFirstRow As String
Dim PstLastRow As String
Set copySheet = Worksheets("FIFO list")
Set pasteSheet = Worksheets("FIFO tracker")
LastRow = copySheet.Cells(Rows.Count, 3).End(xlUp).Row
PstFirstRow = pasteSheet.Cells(Rows.Count, "B").End(xlUp).Offset(1, 0).Row
copySheet.Range("B11:B" & LastRow).Copy
pasteSheet.Range("B" & PstFirstRow).PasteSpecial xlPasteValuesAndNumberFormats
copySheet.Range("D11:K" & LastRow).Copy
pasteSheet.Range("C" & PstFirstRow).PasteSpecial xlPasteValuesAndNumberFormats
PstLastRow = pasteSheet.Cells(Rows.Count, "B").End(xlUp).Row
pasteSheet.Range("A" & PstFirstRow & ":A" & PstLastRow).Value = Format(Date, "DD-MM-YYYY")

Application.ScreenUpdating = True

End Sub

 

[I_need_help]

Sub Test_FIFO_Tracker()
Test_FIFO_Tracker Macro
Application.ScreenUpdating = False
Dim copySheet As Worksheet
Dim pasteSheet As Worksheet
Dim LastRow As Long
Dim PstFirstRow As String
Dim PstLastRow As String
Set copySheet = Worksheets("FIFO list")
Set pasteSheet = Worksheets("FIFO tracker")
LastRow = copySheet.Cells(Rows.Count, 3).End(xlUp).Row
PstFirstRow = pasteSheet.Cells(Rows.Count, "B").End(xlUp).Offset(1, 0).Row
copySheet.Range("B11:B" & LastRow).Copy
pasteSheet.Range("B" & PstFirstRow).PasteSpecial xlPasteValuesAndNumberFormats
copySheet.Range("D11:K" & LastRow).Copy
pasteSheet.Range("C" & PstFirstRow).PasteSpecial xlPasteValuesAndNumberFormats
PstLastRow = pasteSheet.Cells(Rows.Count, "B").End(xlUp).Row
pasteSheet.Range("A" & PstFirstRow & ":A" & PstLastRow).Value = Format(Date, "DD-MM-YYYY")

Application.ScreenUpdating = True

End Sub

Hey Chirayu, works like I wanted it to work thanks a lot!

 

[I_need_help]

How about

Sub Test_FIFO_Tracker()
'
' Test_FIFO_Tracker Macro
'
Application.ScreenUpdating = False
  Dim copySheet As Worksheet
  Dim pasteSheet As Worksheet
  Dim LastRow As Long, Nxtrw As Long

  Set copySheet = Worksheets("FIFO list")
  Set pasteSheet = Worksheets("FIFO tracker")

   LastRow = copySheet.Cells(Rows.Count, 3).End(xlUp).Row
   Nxtrw = pasteSheet.Range("A" & Rows.Count).End(xlUp).Offset(1).Row
   copySheet.Range("B11:B" & LastRow).Copy
   pasteSheet.Range("B" & Nxtrw).PasteSpecial xlPasteValuesAndNumberFormats
 
   copySheet.Range("D11:K" & LastRow).Copy
   pasteSheet.Range("C" & Nxtrw).PasteSpecial xlPasteValuesAndNumberFormats
 
   pasteSheet.Range("A" & Nxtrw).Resize(LastRow - 10).Value = Format(Date, "DD-MM-YYYY")

   Application.CutCopyMode = False
   Application.ScreenUpdating = True


End Sub

Hey Fluff, works really well, can't thank you enough !

 

[Fluff13]

You're welcome & thanks for the feedback.