Selecting Next Usable Cell And Paste

The code works 100% fine in Excel with no errors when the button is clicked.

However, when it transfers over the data, it is one column off to the left.
Sounds like an easy fix, eh?

Not for me. I've tried everything I could think of.

Code that takes the range and pastes it onto the other sheets in the next available cell:



For Each e In myWs
Set LastR = Sheets("" & e).Range("b" & Rows.Count).End(xlUp).Offset(1)
LastR.Resize(, 2).Value = Range("c4:d4").Value
Next
Set LastR = Nothing

I did find one solution that did bump the cell column offset over 1. It went something like this:


Set LastR = Sheets("" & e).Range("b" & Rows.Count).End(xlUp).Offset(1, 1)

Problem is, it no longer takes it to the next available cell.
It just pastes over the same cells over and over no matter how many times you try it.