Use a Interger from one Module to another one

[Gwhaou]

Actually I'm trying to copy some information from one sheet to another sheet, I don't want to mix all the data so I'm searching the last empty row and paste the other information from the last empty row number defined on the Interge Num.

Public Sub copy_paste()

Dim Num As Integer
Call Arr_Prg_Plnt ' Copy some Information from on column to another sheet column
Range("A1").End(xlDown).Offset(1).Select ' Select the last empty cell ' Reach the last empty cell of the column
Num = ActiveCell.Row 'Take the row number
Call Dep2_Prg_Plnt 'Copy some Information from on column to another sheet column, but I try to associate with the Interger Num

----- Dep2_Prg_Plnt is on another Module -------------

Sub Dep2_Prg_Plnt()

Sheets("Dep2").Select
  
    Range("A6").Select
    Range(Selection, Selection.End(xlDown)).Select
    Selection.Copy
    Sheets("PasteSheet").Select
    Range("D" & Num).Select ' I want to associate the Num number defined one Module 1 to this Module
    ActiveSheet.Paste

But it's not working, Is possible to use saved Integer from one module to another module

 

[mumps]

Try:

Sub copy_paste
    With Sheets("Dep2")
        .Range("A6", .Range("A" & .Rows.Count).End(xlUp)).Copy Sheets("PasteSheet").Cells(Sheets("PasteSheet").Rows.Count, "D").End(xlUp).Offset(1)
    End With
End Sub

 

[Gwhaou]

I want to use the Interger Num to fixe that empty row, because i simplified the code but I have a lot of column to copy (A, B, C, D...) and copy that to the sheet Dep2 in which Num take the last Empty row value.
I don't if you understant my problem.

Look the Dep2 sheet :

Here Call Arr_Prg_Plnt paste information from one sheet to here cell A2 to A9, Then From A1 it's looking for the last row which is saved one the Integer Num (here row 10)
Then I Call Dep2_Prg_Plnt from a another module, this script suppose to copy information from A6 to this sheet and place that from D10 (that's why i'm using Num to define that last row)

Sorry, I'm not that good in english.

 

[mumps]

Please use code tags to post the code for Arr_Prg_Plnt. It would be easier to help if you could use the XL2BB add-in (icon in the menu) to attach screenshots (not pictures) of your two sheets. Alternately, you could upload a copy of your file to a free site such as www.box.com or www.dropbox.com. Once you do that, mark it for 'Sharing' and you will be given a link to the file that you can post here. Explain in detail what you want to do referring to specific cells, rows, columns and sheets using a few examples from your data (de-sensitized if necessary).

 

[Fluff]

You can use

Call Dep2_Prg_Plnt(Num)  'Copy some Information from on column to another sheet column, but I try to associate with the Interger Num

to pass a variable to another sub & then use

Sub Dep2_Prg_Plnt(Num As Long)

 

[Gwhaou]

You can use

Call Dep2_Prg_Plnt(Num)  'Copy some Information from on column to another sheet column, but I try to associate with the Interger Num

to pass a variable to another sub & then use

Sub Dep2_Prg_Plnt(Num As Long)

Thank's it works

 

[Fluff]

Glad we could help & thanks for the feedback.