Copia dati con macro tra foglio 1 e 2

Salve a tutti mi sono registrato la seguente macro per copiarmi i dati da un foglio di appoggio a un altro questa e una delle macro

Sub CopiaDatiCommercio()
Sheets("Stampa").Select
Range("L2:L50").Select
Selection.Copy
Sheets("2020").Select
Range("BJ2").Select
Selection.End(xlDown).Select
ActiveCell.Offset(1, 0).Range("A1").Select
Selection.PasteSpecial Paste:=xlPasteValues, Operation:=xlNone, SkipBlanks _
:=False, Transpose:=False
Sheets("Stampa").Select
Range("j2:j50").Select
Selection.Copy
Sheets("2020").Select
Range("BP2").Select
Selection.End(xlDown).Select
ActiveCell.Offset(1, 0).Range("A1").Select
Selection.PasteSpecial Paste:=xlPasteValues, Operation:=xlNone, SkipBlanks _
:=False, Transpose:=False
Sheets("Stampa").Select
Range("C2:C50").Select
Application.CutCopyMode = False
Selection.Copy
Sheets("2020").Select
Range("BM2").Select
Selection.End(xlDown).Select
ActiveCell.Offset(1, 0).Range("A1").Select
Selection.PasteSpecial Paste:=xlPasteValues, Operation:=xlNone, SkipBlanks _
:=False, Transpose:=False
Sheets("Stampa").Select
Range("E2:E50").Select
Application.CutCopyMode = False
Selection.Copy
Sheets("2020").Select
Range("BK2").Select
Selection.End(xlDown).Select
ActiveCell.Offset(1, 0).Range("A1").Select
Selection.PasteSpecial Paste:=xlPasteValues, Operation:=xlNone, SkipBlanks _
:=False, Transpose:=False

End Sub


I problemi che mi ritrovo sono 2

Il primo più sorvolabile ovvero siccome non riesco a correggere la formula in maniera da copiarmi solo le celle piene imposto un range che sicuramente non supererò mai tipo E2:E50 in questo modo mi copia acnhe le celle vuote non è un grande problema però se ci fosse la maniera per evitarlo preferirei

Il secondo che proprio non capisco perchè ogni tanto lo fa altre volte no è che delle volte mi copia le celle nel folio 2020 però non nella prima cella vuota disponibile ma magari anche dopo 30 celle qualcuno può aiutarmi?

Grazie in anticipo

Allega file di Excel con i dati e risultato voluto inserito a mano.

Ho provato a mettere il file ma mi dice che è troppo grosso l'ho ridotto al minimo comunque troppo grande...ho provato a fare un foglio proprio base base ma la macro non mi funziona non riesci proprio senza file?

Puoi usare un sito di file sharing tipo Filedropper (o simili) e mettere qui il link.

Comunque puoi anche costruire un file con pochi record (non è necessario l'originale) e sulla base dei dati mostrare il risultato che ti aspetti.

Ciao guarda questo semplice foglio cosi posso spiegarti meglio io vorrei copiare i valori presenti in foglio 1 nel foglio 2 nella prima cella disponibile tenendo conto che i valori nel foglio 1 in questo caso è solo una riga ma che possono essere 2-3-4-10 righe tutte le volte differenti

Aggiungo che ovviamente come si vede dalla Macro che ho postato il file originale non ha colonne consecutive ma separate

Devi postare un file che sia strutturalmente uguale all'origine.

Se l'esempio è diverso dall'originale si perde solo tempo.

http://www.filedropper.com/semina2

Ora, avendo il file, devi dire che cosa si deve copiare e dove lo si deve incollare.

Io uso 2013 ed alcune formule non le sopporto (_xlfn.CONCAT), in Stampa hai una Tabella con formule scritte (anche se ci sono solo tre righe scritte, il vba ne trova 135). Nel foglio 2020, ci sono formule in AE,BG,BR e per colpa di queste non si trova l'ultima riga occupata.
Suggerimento togliere le formule (in 2020 e ridurre le righe), oppure sarebbe meglio eliminare tutte le tabelle perchè pesa troppo il Tuo files. Allego una demo-funzionante (potrei evitare il ciclo for se togli la tabella da stampa). Due VBA (spero che le colonne siano giuste), funzionanti il secondo funziona con la tabella in stampa.