The destination part says
wsWar2.Cells(1, 82).End(xlRight).Offset(0,1)
From CD1 (1,82)
go to the first non-blank cell or the last cell (XFD1) and then
go one more columns
SO it depends of whether there are any non-blank cells after CD1
Now if you to append another column to a block of data, I usually use something like
Option Explicit
Sub Macro1()
With ActiveSheet
.Range("A1:E10").Value = 123
MsgBox .Cells(1, .Columns.Count).End(xlToLeft).Offset(0, 1).Address
.Cells(1, .Columns.Count).End(xlToLeft).Offset(0, 1) = 987
End With
End Sub
i.e. from far right, go left to first non-blank cell, and then right one column