VBA copy and paste based on cell value

Hi, Thanks for the quick reply

I have been working on a code

Sub Shift()

Dim lr As Long, lr2 As Long, r As Long
lr = Sheets("Histogram").Cells(Rows.Count, "A").End(xlUp).Row
lr2 = Sheets("DS Sheet").Cells(Rows.Count, "A").End(xlUp).Row
lr3 = Sheets("NS Sheet").Cells(Rows.Count, "A").End(xlUp).Row
For r = lr To 2 Step -1
    If Range("E" & r).Value = "DS" Then
        Range("B:G").Copy Destination:=Sheets("DS Sheet").Range("A" & lr2 + 1)
        lr2 = Sheets("DS Sheet").Cells(Rows.Count, "A").End(xlUp).Row
    End If
    If Range("E" & r).Value = "NS" Then
        Range("B:G").Copy Destination:=Sheets("NS Sheet").Range("A" & lr3 + 1)
        lr3 = Sheets("NS Sheet").Cells(Rows.Count, "A").End(xlUp).Row
    End If
    Range("A1").Select
Next r
End Sub

However this keeps returning an error saying "we can't paste because the copy and paste area is not the same size", I have made sure they are exact replicas in size.

I realised I dont want to copy the whole row, jus column "B:G"

Any Ideas?