hello

I was going to tell you about the entire used range of cells, i don't really need to copy all of it. For example: i want to start at A7 - K7 and paste or move everything within that range to the new sheet also starting at A7 - K7.

I used the code u gave me above and it didnt work, this is how i copied.:::

Option Explicit
Dim a As String
Dim i As Integer


Private Sub movebutton_Click()

Dim iCol As Integer
Dim i As Integer

For iCol = 1 To 14
i = 1
Do Until Sheet3.Cells(i & iCol).Value = ""
Sheet2.Cells(i, iCol).Value = Sheet3.Cells(i, iCol).Value = ""
i = i + 1
Loop
Next iCol

End Sub

Thanks again for your help :-)