VBA Copy and paste not working, please help!

I have a table within the worksheet "OPA 1", with a table of data. I want to copy some of these columns across into a seperate worksheet ("All") to make a new table. I have created a header row with a 1 above all the columns I want to copy across to create the new table.

The coding I've used so far seems to work all the way to the 3rd to last line "Cells(1, columncount2 + 1).Paste
" but it wont paste!
I really don't know what I'm doing wrong...
Any help would be very much appreciated!


Sub Sort()

Sheets("OPA 1").Select
Cells(1, 1).Select

Dim i As Integer

Dim columncount1 As Integer
columncount1 = Cells.CurrentRegion.Columns.Count

Dim columncount2 As Integer


For i = 1 To columncount1

Cells(1, i).Select

If ActiveCell = 1 Then
ActiveSheet.Range(Cells(2, i), Cells(751, i)).Select
Selection.Copy
Sheets("All").Select
Cells(1, 1).Select
columncount2 = Cells.CurrentRegion.Columns.Count
Cells(1, columncount2 + 1).Select
Sheets("OPA 1").Select
ActiveSheet.Range(Cells(2, i), Cells(751, i)).Select
Sheets("All").Select
Cells(1, columncount2 + 1).Paste


End If

Next i